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A Microsoft tem 120 programas em tifas e disquetes à sua disposição. 

_ São sistemas aplicativos para acompanhar e agilizar os negócios 
de sua empresa. E também jogos eletrônicos para você e sua família 

se divertirem muito. Todos especiais para TK-83, TK-85; - 

TK-2000, Apple 3Ee compatíveis. E todos com a mesma qualidade - 

dos 100.000 programas já vendidos em todo o Brasil; - 

"Procure o revendedor Microsoft mais próximo (se não encontrar os - 

programas Microsoft escreva para a Caixa Postal 54221 - CEP 01000- - 

“S. Paulo-SP). Você encontrará os melhores programas da sua vida._l -L 
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Senai forma mão-de-obra 
para a Informática 



Vista geral do laboratório de Lógica Digi¬ 
tal, instalada na Escola SENAI de Santos, 
onde serão ministrados os cursos do Sub- 
projeto 1. 

Desde 1982, o Senai-SP vem estru¬ 
turando uma política específica de atua¬ 
ção no setor de informática. Esse plano 
criou o Projeto Eletrônica, dividido em 
16 subprojetos, destinado a preparar 
pessoal técnico para desenvolver equi¬ 
pamentos e materiais didáticos e implan¬ 
tar cursos de treinamento para formação 
de recursos humanos nas áreas de con¬ 
trole de processos contínuos e de desen¬ 
volvimento e manutenção de equipa¬ 
mentos eletrônicos digitais. 

Nessa área, o Senai já produziu trei¬ 
namento em CNC (máquinas-ferramen¬ 
tas com comando eletrônico manuais) e 
pretende implantar, também, linhas de 
ação nos campos de CAD/CAM (proje¬ 
to e fabricação assistidos por computa¬ 
dor). Outra preocupação é o uso do 
computador na educação e o ensino da 
informática, procurando formar profis¬ 


sionais qualificados para esse novo seg¬ 
mento da indústria. 

Para dar andamento a esses proje¬ 
tos, o Senai firmou um convênio no mês 
de março, com o CTI (Centro Tecnoló¬ 
gico para Informática) de Campinas, pa¬ 
ra a realização de atividades conjuntas 
de pesquisa. Doze docentes da área de 
eletrônica, entre abril e setembro deste 
ano, estão recebendo treinamento nas 
áreas de eletrônica, mecânica de preci¬ 
são, instrumentação na área de robóti¬ 
ca industrial e sistemas operacionais pa¬ 
ra microcomputadores. 

Para a preparação de mão-de-obra, 
atendendo às necessidades específicas 
das empresas, terá início, ainda este se¬ 
mestre, as atividades de treinamento de 
técnicos. Segundo o Senai, a primeira 
preocupação da entidade será voltada à 
área de desenvolvimento e manutenção 
de equipamentos eletrônicos digitais, 
devido a falta de profissionais capacita¬ 
dos que se observa nesse setor. 

Também será implantado cinco cur¬ 
sos de especialização na área de circui¬ 
tos digitais e microcomputadores, des¬ 
tinados a técnicos de nível médio e su¬ 
perior de empresas fabricantes e usuá¬ 
rios de instrumentos digitais para con¬ 
trole de processos contínuos. 

O Projeto Eletrônico inclui ainda 
subprojetos referentes à realização de 
estudos de viabilidade para implanta¬ 
ção de um Curso Técnico em Eletrônica, 
em nível de segundo grau, e de um cur¬ 
so de Aprendizagem Industrial, para a 
faixa etária de 14 a 16 anos, para a fun¬ 
ção de Reparador de equipamentos ele¬ 
trônicos. A.L.M. 


Comunidade Interligada 


Entre as diversas opções, o acesso 
ao Banco de Programas, por exemplo, 
possibilita a transferência On-Line de 
software aos usuários do Cirandão e 
oferece uma variada seleção de progra¬ 
mas nas áreas de administração empre¬ 
sarial, profissional e doméstica, ciência e 
tecnologia, educação e lazer (jogos). Es¬ 
se serviço estará disponível aos termi¬ 
nais, com os mesmos requisitos de se¬ 
gurança que disporiam se fossem adqui¬ 
ridos nas lojas ou casas de software. Pa¬ 
ra prevenção de eventuais erros de 
transmissão desses programas, a Em- 
bratel fornece um protocolo de comuni¬ 
cações específico, para uma maior dis¬ 
ciplina de controle de erros de transmis¬ 
são. 

O que caracteriza o sistema como 
uma comunidade teleinformatizada é, 
principalmente, a facilidade com que os 
usuários se comunicam entre si, abrin¬ 
do uma perspectiva de uma maior inte¬ 
gração dos participantes do serviço. 
Através das facilidades da comunicação 


eletrônica é possível trocar mensagens e 
informações, de forma pessoal ou cole¬ 
tiva, com os membros da comunidade 
ou até mesmo realizar conversações si¬ 
multâneas com um grupo de pessoas. 
Os usuários podem estar interligados 
por um serviço de mensagens, quadros 
de aviso, mercado eletrônico e telecon¬ 
ferência. Suas mensagens podem ser 
armazenadas em uma caixa postal, que 
o usuário recebe no ato da inscrição, e 
que podem ficar até três dias na memó¬ 
ria do sistema, sem despesas adicionais. 

Através do próprio Cirandão, o 
usuário tem amplo apoio sobre o funcio¬ 
namento. Acessando o "Serviço de Su¬ 
porte", estará disponível, On-Line e de 
forma gratuita, a orientação de que pre¬ 
cisa, auxiliando-se em suas dificuldades 
e facilitando-lhes seu relacionamento 
com o sistema. 

Esse serviço é cobrado do usuário 
através de sua conta mensal de telefone, 
incluindo uma franquia de 120 minutos e 
250.000 bytes. A.L.M. 



Cursos e Sistemas 
para os Apple 

A partir de julho último a nova dire¬ 
toria da Apple Cursos e Sistemas pas¬ 
sou a atuar em dois novos planos de 
ação, além dos cursos: na revenda e re¬ 
presentação de microcomputadores e 
na execução de sistemas aplicativos pa¬ 
ra qualquer área e qualquer tipo de mi- 
crosistema. 

Atualmente a empresa está com a 
representação de toda a linha Telesist de 
micros, mono e multiusuário de 8 bits 
(fabricados no Rio de Janeiro) ede to¬ 
da linha MC 6502 de micros e periféricos 
da linha Apple, fabricados pela Appel- 
tronics em São Paulo. 

Além da representação de micros 
Apple, a empresa está introduzindo tam¬ 
bém a prestação de serviços ao usuário. 
A Apple Cursos e Sistemas, segundo 
seus representantes, passou a executar 
estudos no sentido de indicar ao com¬ 
prador interessado, o modelo ou confi¬ 
guração mais adequados às suas neces¬ 
sidades. Para o usuário que já tem um 
Apple a empresa dá cursos mensais (de 
acordo com a procura, em turmas de no 
máximo 12 pessoas) de aplicação profis¬ 
sional como o editor de texto e de lin¬ 
guagem BASIC. Todos com duração de 
20 horas, em São Paulo. Os interessa¬ 
dos podem obter informações no tele¬ 
fone 853.9457. 


Informática no interior 
de São Paulo 

O SENAC de São José do Rio Pre¬ 
to, São Paulo realizará, de 26 de novem¬ 
bro a 2 de dezembro, a II Feira SENAC 
de Informática e o II Simpósio de Infor¬ 
mática. O evento conta com o apoio de 
diversas entidades representativas da 
área entre estas a SUCESU — São Pau¬ 
lo, o Sindicato de Comércio Varejista, a 
PMSP, o Sindicato dos Feirantes e Ven¬ 
dedores Ambulantes, o CIESP e o 
SESC. 

A Feira terá uma inovação: a venda 
direta dos equipamentos expostos ao 
público e o simpósio abordará temas co¬ 
mo o gerenciamento de CPD, a informá¬ 
tica na indústria e na pequena e média 
empresa comercial, na construção civil e 
na engenharia, em bancos e financeiras, 
entre outros. Informações podem ser 
obtidas através do telefone (0172) 
33.1565. 


MICROHOBBY 3 
























CALENDÁRIO 

1 e 2/10 — Seminário Compucen- 
ter sobre CP/M — Sistema operacional 
para microcomputadores, em SP. Infor¬ 
mações: 255.5988. 

3 a 5/10 — Seminário Compucen- 
ter sobre transmissão de dados com o 
seguinte tema: SNA — Systems Net¬ 
Work Architecture, no RJ. Informações: 
255.5988. 

3 a 5/10 — Seminário Servimec 
com o tema "Gerência de Projetos — 
Um Método Eficaz", em São Paulo. In¬ 
formações: (021)222.1511. 

8, 9 e 10/10 — OA/84 — Evento so¬ 
bre Automação de Eáfcritório organiza¬ 
do pela 31 Informática a realizar-se no 
Caesar Park Hotel em São Paulo. Maio¬ 
res informações pelo telefone: (011) 
521.9509 ou através de correspondência 
endereçada à Rua Dep. Martinho Rodri¬ 
gues, 284 - CEP 94646, SP. 


10 e 11/10 — Seminário da Servi¬ 
mec em São Paulo sobre "A Segurança 
Necessária em PD: Criptografia". Infor¬ 
mações telefone (021) 222.1511. 

11/10 — Curso sobre 0S/VS1 para 
operadores, organizado pelo Instituto 
ORT, no Rio de Janeiro. Informações te¬ 
lefone (011)226.3192. 

15/10 — Curso Linguagem de Má¬ 
quina para o TK, voltado a profissio¬ 
nais, estudantes e demais pessoas com 
conhecimento da linguagem BASIC. Or¬ 
ganizado pela Datamicro, empresa do 
Rio de Janeiro. Informações pelo telefo¬ 
ne (021)274.1042. 

1/11 — Curso com o seguinte tema: 
VM para operadores, organizado pelo 
Instituto ORT no RJ. Informações: (021) 
226.3192. 

6 a 17/12 — Curso organizado pela 
SAD — Sistemas de Apoio à Decisão 
com preço médio de 70 ORTNs. Infor¬ 
mações podem ser obtidas pelo telefo¬ 
ne: (011)864.7799. 


Interface para impressora TL-85 

A TL-85 foi desenvolvida pela Tek- 
nológica com o intuito de permitir o au¬ 
mento das aplicações do TK, possibili¬ 
tando a sua utilização em conjunto com 
uma impressora ou máquina de escrever 
adaptada. A interface interage com o in¬ 
terpretador BASIC do micro e aciona a 
impressora utilizando diretamente os co¬ 
mandos LLIST, LPRINT e COPY, sem 
nenhuma espécie de conversão. 

A interface funciona com qualquer 
tipo de impressora ou máquinas de es¬ 
crever eletrônica que possua comunica¬ 
ção paralela Centronics. Maiores infor¬ 
mações podem ser obtidas pelo telefo¬ 
ne (0512) 428549 em Porto Alegre, RS. 


Itautec começa a fabricar sistemas 
de editoração videotexto 


Sistema de editoração Videotexto Itautec 1-1000. 


A Itautec começará a comercializar 
a partir de outubro, o sistema de edito¬ 
ração videotexto. Com projeto 100% na¬ 
cional desenvolvido pela empresa, o sis¬ 
tema atende a necessidade do mercado 
que, até o momento, só dispunha de 
produtos importados, tornando-se a pri¬ 
meira empresa nacional de informática a 
fabricar todos os equipamentos neces¬ 
sários para edição, transmissão e re¬ 
cepção de informações. 

O primeiro cliente, a Telesp, rece¬ 
beu os dez primeiros sistemas no final de 
julho, que serão utilizados para gravação 
e atualização das páginas de seu banco 
de dados. Segundo a Itautec, o equipa¬ 


mento deverá ter ampla penetração en¬ 
tre os fornecedores de serviços video¬ 
texto, empresas, instituições ou órgãos 
governamentais que distribuem informa¬ 
ções. 

Durante a V Feira de Equipamentos 
de Automação Bancária, no Anhembi, o 
sistema foi apresentado integrado à re¬ 
de de comunicação de dados bancária. 
Assim, o usuário poderá obter através 
de um terminal de videotexto, ou de um 
microcomputador com placa de expan¬ 
são, em sua casa ou escritório, infor¬ 
mações sobre sua conta corrente, com 
saldo, últimos lançamentos e caderneta 
de poupança. A.L.M. 


Serviço Cirandão 

A partir da experiência do Projeto 
Ciranda — a primeira comunidade infor¬ 
matizada do país — a Embratel inaugura 
mais um serviço: o Cirandão. Seu aces¬ 
so é simples: um microcomputador, um 
terminal de vídeo ou um telex com inter¬ 
face e um software de comunicação e o 
cadastramento na Embratel para o re¬ 
cebimento de uma senha. Esses recur¬ 
sos dão o direito a diversos serviços de 
informação e bases de dados. 

O Serviço Cirandão oferece um 
banco de informações (bases de dados), 
programas, serviços de comunicação 
(como correio eletrônico), armazena¬ 
mento de arquivos de usuários e suporte 
de utilização. Segundo a empresa, mais 
informações serão adicionadas no de¬ 
correr do tempo, de forma a acompa¬ 
nhar a manifestação de demanda por 
parte dos usuários. E isso já está ocor¬ 
rendo. O programa foi lançado no mês 
de julho e já conta com 420 participan¬ 
tes. A partir de uma maior divulgação, 
novas bases de dados deverão ser ca¬ 
dastradas, enriquecendo as informações 
já disponíveis. Nessa primeira fase de 
funcionamento, segundo Sandra Fer¬ 
reira, agente administrativa da Embra¬ 
tel, o serviço funcionará mais voltado à 
área médica. 

Uma interface que 
permite a ligação do 
TK-85 à impressora 
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Cursos voltados âs 
aplicações profissionais 

0 Instituto Sullivan está mantendo 
no período de 1 a 10 de cada mês, cur¬ 
sos na área de Informática com o intui¬ 
to, segundo a empresa, de orientar estu¬ 
dantes e profissionais em geral para a 
área de microcomputação. 

Os cursos abrangem o ensino de lin¬ 
guagens como BASIC normal e avança¬ 
do), COBOL, FORTRAN e Assembly e 
também cursos especiais, voltados às 
aplicações profissionais: CPM, Visicalc, 
Visiplot, Visifile, Supercalc, Editor de 
Textos, Sistemas de Contabilidade para 
micros, entre outros. 

Segundo a diretoria do Instituto 
Sullivan (Rio de Janeiro) estes cursos 
foram programados com o objetivo de 
familiarizar estudantes e formados com 
as técnicas de uso dos micros das linhas 
Apple, TRS-80 e Sinclair. Os interessa¬ 
dos podem obter maiores informações 
pelo telefone (021) 255.9295 ou 541. 
3933. 

Informática por 
correspondência 

A ALAE — Aliança Latino-Ameri¬ 
cana de Ensino que introduziu o concei¬ 
to dos cursos auto-instrutivos no Brasil, 
está inaugurando o "advance technical 
training" programa especial para os 
cursos técnicos na área de Informática. 

Utilizando recursos didáticos de al¬ 
to nível, a ALAE com a implantação do 
programa está promovendo cursos de 
programação nas linguagens BASIC e 
COBOL de microprocessadores além 
de Análise de Sistemas. Informações so¬ 
bre os cursos por correspondência, pro¬ 
movido pela empresa, podem ser obti¬ 
das no seguinte telefone: 64.8468. 

dBase II para empresas e 
profissionais interessados 

Em setembro a Datalógica (empre¬ 
sa detentora dos direitos de distribuição 
dos produtos de Ashton-Tate no Brasil) 
ministrou cursos sobre os comandos do 
dBASE II e agora, em outubro, dará rei¬ 
nicio ao treinamento dos que se interes¬ 
sam pelo banco de dados com estrutura 
de linguagem. 

O curso será dado nos dias 8, 9 e 10 
e nos dias 29, 30 e 31 de outubro, cus¬ 
tando aproximadamente 30 ORTNs por 
pessoa. 

A empresa, além do treinamento do 
dBase oferece às empresas interessa¬ 
das, cursos específicos, de acordo com 
as características dos profissionais e de 
suas aplicações. Informações: (011) 
283.0355. 



Centro de documentação 
doSEADE 

Um acervo de monografias e perió¬ 
dicos, cadastro de órgãos públicos, ar¬ 
quivos das mais importantes fontes pro¬ 
dutoras de dados e referências de outras 
entidades que produzem e disseminam 
informações, são alguns dos dados pos¬ 
tos a serviço da população pelo CDR 
(Centro de Documentação), da Funda¬ 
ção Sistema Estadual de Análises de Da¬ 
dos — Seade, ligado à Secretaria do 
Planejamento do Estado de São Paulo. 
Questões sobre população de municí¬ 
pios, valor da ORTN, inflação dos últi¬ 
mos dez anos, coeficiente de mortalida¬ 
de infantil, entre muitas outras, estão à 
disposição através de atendimento dire¬ 
to ao público, por telefone ou telex. 

Dirigindo-se à sede da Fundação, o 
usuário encontra uma equipe multidisci- 
plinar que o orienta pessoalmente na lo¬ 
calização e uso das informações que ne¬ 
cessita. Outro serviço, o SPR — Servi¬ 
ço de Perguntas e Respostas — atende 
por telefone para consultas breves. For¬ 
nece informações sócio-económicas, re¬ 
ferências sobre fontes de informações, 
endereços de órgãos e nomes de ocu¬ 
pantes de cargos da administração pú¬ 
blica. 

A biblioteca completa a área de dis¬ 
seminação de informações do Seade. 
Especializada em publicações estatísti¬ 
cas e de planejamento, ela possui mais 
de 40.000 obras para consulta local ou 
empréstimo. Esses dados também estão 
a serviço do usuário via rede nacional de 
telex. Quem estiver interessado basta 
ligar no telefone 229-2433. A.L.M. 


Micros voltados à indústria 

"O Microcomputador Aplicado ao 
Controle de Processo" é o tema do se¬ 
minário promovido pelo São Paulo Com¬ 
puter Institute (SCI), dirigido a profis¬ 
sionais, executivos e gerentes de áreas 
industriais. O objetivo é oferecer uma 
ampla visão dos recursos dessa nova 
tecnologia aplicada a setores específi¬ 
cos, discutindo-se equipamentos dispo¬ 
níveis no mercado, software e utilização 
de microcomputadores tipo Apple e 
IBM-PC. 

Segundo Maurício Lente, expositor 
do programa, não é necessária experiên¬ 
cia prévia com computadores e a parti¬ 
cipação é limitada a oito pessoas para 
um aproveitamento máximo dos equi¬ 
pamentos. Com a duração de dois dias 
(16 horas), o seminário aborda: o micro¬ 
computador — o que é e como funcio¬ 
na, o computador aplicado ao controle, 
comparação entre o controle convencio¬ 
nal e o micro aplicado, o software para 
controle direto e para interação com o 
usuário, confiabilidade, benefícios e ten¬ 
dências. A.L.M. 


LIVROS DE: 

HARDWARE - 
SOFTWARE 

6809 

6502 

8080/8085 
8086/8088 
6800 / 68000 
Z-80 / Z-8000 
APPLE 
ATARI 

COMMODORE 

IBM 

TRS-80 

SINCLAIR 

BASIC 

dBASE 

ROBÔS 

VISICALC 

CP/M 

UNIX 
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EDITORIAL 



A revista 
Microhobby, 
desde o seu 
lançamento, 
teve uma 
qualidade que 
sempre 

pudemos notar: as pessoas que a 
conheceram, não importa a partir de qual 
número, sempre desejaram os seus números 
anteriores, temendo ter perdido tempo em não 
ter conhecido a revista antes. 

Quando o volume de interessados 
cresceu, começamos a nos perguntar como 
poderiamos atendera este público cada vez 
maior. A solução encontrada foi lançarmos 
esta edição especial, onde republicaremos 
alguns artigos que julgamos ser os melhores. 
Além disso, esta edição especial deveria ter as 
seções normais da revista, bem como alguns 
artigos especiais de maneira a dara todos os 
leitores informações vitais, artigos de peso e 
bons programas. 

O passo seguinte foi escolher a data. 
Escolhemos este mês por coincidir com a 
IV Feira de Informática, um evento que 
interessa a todas as pessoas que, de uma 
forma ou de outra, estão ligadas à área 
(e quem não está?). Assim, inc/uimos uma 
reportagem especial sobre este evento, 
procurando fazer uma cobertura antecipada 
sobre o que acontecerá no Rio de Janeiro: 
quem estará presente e o que de novo se verá. 


Ao lado disto tudo, pensamos sobre o 
que seria mais ú til ao leitor e chegamos à 
conclusão de que o que mais deveria 
interessá-los seria aquilo que faz seu 
computador funcionar: o software. Assim 
nasceu um artigo especial sobre o software. 

Já tínhamos a pauta. Agora restava 
conseguir dos colaboradores e 
ex-funcionários, que tinham escrito 
anteriormente na revista, uma autorização 
para publicação destes artigos. Durante 
algumas semanas selecionamos o que havia 
de melhor na revista e contactamos os seus 
autores. E o que você verá é o fruto da boa 
vontade deste pessoal que cedeu, 
graciosamente, os direitos para, nesta edição, 
publicarmos estes artigos. A eles, os nossos 
agradecimentos, pelos que colaboraram e 
pelos que vieram a colaborar. Afinal, e/es 
deram e dão vida à Microhobby. 

Um outro agradecimento é para vocês 
leitores, que têm nos acompanhado, não 
importa a partir de que número, fornecendo 
críticas, elogios e colaborações para nossa 
revista. 


* 
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por escrito da Editora. 

Os artigos e matérias assinadas são de 
responsabilidade exclusiva de seus autores, 
não estando a Editora obrigada a concordar 
com as opiniões aí expressas. 
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Apple XTK2000 

Sua revista parece dar especial 
atenção à opinião do leitor. Bem, aqui 
vai a minha: 

Falando francamente e expondo 
uma opinião extritamente pessoal, as re¬ 
vistas nacionais parecem querer fazer de 
tudo um pouco; desta forma não produ¬ 
zindo uma seção suficientemente boa 
em nenhuma das linhas. Sua revista co¬ 
meçou bem, tratando apenas do TK/85 
e seus compatíveis, mas agora já tem 
uma seção do Apple (. . .) 

Entretanto, quem já se interessou 
pelo TK 2000? E verdade que ele é muito 
novo, mas, em minha opinião é um 
grande micro brasileiro, mantendo uma 
compatibilidade limitada com o Apple 
(usa-se o que tem de bom), sem ser uma 
cópia barateada à custa do emprego de 
material inferior e está perf pita mente 
dentro da realidade do amador. Vejam, 
na situação atual, o TK 2000 é uma gran¬ 
de opção, mas até agora ninguém emi¬ 
tiu nada além da descrição e compatibi¬ 
lidade do aparelho. Já está à venda aqui 
no Rio, há mais de dois meses, e onde 
estão os programas ou opiniões basea¬ 
das em testes práticos? 
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A Microhobby deu um passo posi¬ 
tivo, ficou com o TK 83/85 de uma ma¬ 
neira prática e objetiva, mas já introdu¬ 
ziu uma seção sobre o Apple sem qual¬ 
quer originalidade (desculpe a franque¬ 
za) e, no contexto do propósito da re¬ 
vista, completamente deslocada. Assim, 
porque não continuarem brilhantes e ori¬ 
ginais, substituindo estes artigos "de- 
senturmados" por uma seção 'TK 2000 
Color". Desta forma, a Microhobby se¬ 
ria uma revista dirigida aos possuidores 
do TK 83, 85 e 2000! 

O dono de um TK 2000 não pode 
usar a maioria dos programas desenvol¬ 
vidos para um Apple, que aparecem nas 
revistas estrangeiras e nacionais, devi¬ 
do a existência de um PEEK ou POKE di¬ 
ferente ou alguma instrução, sem falar 
na linguagem de máquina . . . 

É minha opinião que a Microhobby 
crescerá tremendamente, pois será a 
única revista nacional que atinge direta¬ 
mente o hobista médio. (...) 

O TK 2000 está começando, "dêem 
uma força", não na forma de opiniões 
gerais, mas de artigos, programas e con¬ 
versões TK 2000/Apple. Eu acho isto 


muito mais importante que uma seção 
Apple no meio de tantas outras. 

Edric B. Filho 
Rio de Janeiro — RJ 


Caro Edric , 

Suas sugestões já foram implemen¬ 
tadas , de uma forma que acreditamos 
estar superando suas espectativas e as 
de muitos possuidores do TK 2000. Se 
você prestar atenção, as seções "por 
Dentro do Apple" e "Explorando o TK 
2000" estão sob supervisão de mesma 
pessoa, o professor Wilson José Tucci. 
Além disso, estamos dedicando alguns 
programas de nossa pauta ao TK 2000. 
Só que não deixaremos de lado nem o 
TK 83, nem o Apple, e, se possível, nem 
o TRS 80, já que pretendemos atingir 
todos os hobistas. De uma forma geral, 
acreditamos que o importante não é a 
máquina que vai rodar o programa, mas 
a lógica de seu desenvolvimento. Entre¬ 
tanto, agradecemos seus elogios e críti¬ 
cas; as opiniões dos leitores nos ajudam 
a saber se estamos, ou não, no caminho 
certo. 















Aplicações Numéricas 

Tive contato com esta revista desde 
o número zero e, após a compra de um 
TK 85, sou um leitor inveterado e faná¬ 
tico de micro-informática. 

Reparei que a grande maioria dos 
programas são de aplicação geral, 
jogos, aplicativos básicos ou dicas (o 
que vem sempre muito a calhar para re¬ 
solver alguns problemas), mas pouca 
atenção é dada às aplicações numéricas 
nos diversos setores da ciência e da tec¬ 
nologia; talvez porque a grande maioria 
dos leitores seja de uma faixa etária 
muito jovem. 

Com isso, claro que é interessante 
manter uma seção onde se possa publi¬ 
car o nome, endereço, etc. . . para a 
formação de um clube de usuários para 
uma maior troca de experiências, pois 
somos muito eterogêneos. 

Eduardo Marchiori 

São Paulo — SP 

Caro Eduardo, 

Suas sugestões são válidas e serão 
estudadas para uma possível implemen¬ 
tação. Quanto às aplicações numéricas, 
publicaremos sempre que possível, arti¬ 
gos sobre o assunto. 

Capitão Gancho 

Acho a revista Microhobby ótima. 
Isto faz com que eu a compre. Ela é bem 
diagramada e aos poucos ela está me¬ 
lhorando, o que faz com que a maioria 
dos leitores a prefiram. Seus programas 
são ótimos, mas a maioria deles são um 
pouco curtos e pequenos. Se fossem in¬ 
cluídos programas maiores, a revista 
conseguiria mais leitores. Isto não signi¬ 
fica que devem parar de fazer progra¬ 
mas pequenos, mas fazer também pro¬ 
gramas longos — quanto maior, melhor. 

I) Acho que os programas deve¬ 
riam ter uma porcentagem de dificulda¬ 
des: por exemplo: Operação Resgate, 
76% de dificuldade. 

II) Creio que os leitores deviam en¬ 
viar mais programas. As instruções de 
"Como Colaborar com Microhobby" 
são muito burocráticas (mandar fita 
etc.). Isso faz com que os leitores não 
mandem muitos programas, por acha¬ 
rem isto uma perda de tempo. 

III) Sou da opinião que deviam ser 
mais condescendentes com piratas. Os 
coitados são maxidesvalorizados por 
não poderem comprar jogos. Deviam in¬ 
cluir uma seção "Clube do Capitão Gan¬ 
cho", onde os leitores trocariam pro¬ 
gramas ou doassem os mesmos, incluin¬ 
do listagens de programas bloqueados. 

IV) A revista deveria organizar sor¬ 
teios de fitas, não só para assinantes, 
mas também para aqueles que a em¬ 
prestam do Zézinho, o jornaleiro, e que 
não tem dinheiro nem para pagar a con¬ 
ta de luz. (...) 

Henry Gi/bertjr. 

São Paulo — SP 


Caro Henry, 

Agradecemos seus elogios e suges¬ 
tões. Se você tem nos acompanhado re¬ 
gularmente (como assinante ou leitor 
eventual), você deve ter notado que es¬ 
tamos dando um pouco mais de atenção 
aos programas longos, conforme é o seu 
desejo e de uma significativa porcenta¬ 
gem de leitores. 

Vamos às suas sugestões: 

D Adotamos, durante algum tem¬ 
po, uma indicação de nível de dificul¬ 
dade nos nossos programas, mas perce¬ 
bemos que isto era muito subjetivo, não 
dando uma informação muito precisa ao 
usuário do programa. Desta forma, já 
que é subjetivo, deixamos ao leitor deci¬ 
dir, baseado no texto, qual é o nível de 
dificuldade e se este é compatível com 
seus conhecimentos. 


H) Os leitores de Microhobby en¬ 
viam regularmente programas para pu¬ 
blicação e não acham nosas exigências 
excesso de burocracia. De qualquer for¬ 
ma, estamos aceitando programas, des¬ 
de que venham datilografados de manei¬ 
ra legível, com um texto explicativo e 
com uma autorização para publicação. 

III) Não podemos fazer isso, uma 
vez que implica em facilitar atividades 
que lesam os fabricantes de software. 
Além disso, pirata que se preze desen¬ 
volve as próprias "ferramentas " (pro¬ 
gramas destravadores e macetes), para 
abrir e duplicar programas. 

IV) As fitas-brinde são dadas aos 
novos assinantes, em promoções espe¬ 
ciais, como um incentivo para que assi¬ 
nem e não como um concurso. 


ESTE É 0 MELHOR 
SOFTWARE DO MERCADO 

WÍNBALL 

Jr “0 Flipperama” 

* Para marcar o maior n? de pontos, você não deve 
deixar que a bola caia na caçapa. Movimentando 
dois flippers que rebatam a bola devolta para o cam¬ 
po. Este jogo é uma simulação real das máquinas 
das já tradicionais casas de flipperama. Um verda¬ 
deiro desafio para seus reflexos!! 

TK-WORD 

“Processador de Textos” 

Eficiente processador de textos que permite a com¬ 
posição de cartas, documentos e outros, que po¬ 
dem ser armazenados em fita K-7 e/ou impressos 
pela ZX Printer/Timex 2040. Algumas de suas carac¬ 
terísticas: centralização de linha; repetição automá¬ 
tica para todas as teclas; 300 linhas em 16K (1300 
em 48K); movimento do cursos nas 4 direções e 
muitos outros comandos! 

^CORRIDA MILIONÁRIA 

f Você está participando de uma corrida milionária 
r e sua lancha vai a uma velocidade incrível por um 
circuito marcado por obstáculos, basta que você 
colide com um deles para ir pelos ares, no entanto, 
você pode fazer uma fortuna resgatando os pacotes 
de dinheiro espalhados em bóias ao longo do cir¬ 
cuito... Um teste formidável para sua capacidade de 
atenção, habilidade e reflexos. 

ySRT - 

^ÍUPER BOLICHE 

r São 180 garrafas de boliche para derrubar, para isso 
você movimenta um anteparo que rebate a bola de 
volta para as garrafas restantes. Você ganha se con¬ 
segue derrubar todas as garrafas em dez tentativas. 
Especial para os amantes da estética: belíssimo 
efeito visual. Dez níveis de dificuldade. 


SAIBA PORQUE CIBERTRON PRODUZ 0 MELHOR SOFT DO MERCADO 

• Todos nossos programas incluem poderosas rotinas em linguagem 
de máquinas que os tornam mais rápidos e versáteis do que os em 
Basic, além da economia de memória. 

• Dentre as centenas de jogos e aplicativos constantes em nossa lista, 
estão somente comercializados os melhores. 

• Gravações em ambos os lados do K-7 e fitas de boa qualidade, 
lacradas e garantidas. 

• Documentação sempre presente no próprio programa ou em folha 
separada. 


□BERTRDn 

eletrônica Itda. 


Se você quiser adquirir diretamente.programas, envie o pedido acompanhado de um 
cheque nominal cruzado em favor de: 

CIBERTRON ELETRÔNICA LTDA. 

Caixa Postal: 17.005 - CEP 02399 * São Paulo 
Jogos a Cr$ 9.500,00 - TK-WORD Cr$ 10.500,00 - Remessas em 3 dias. 

PROGRAMAS PARA TK82 • TK83 - TK85 - CP200 - AS1000 - RING0 e similares. 

CREDENCIAMOS REVENDEDORES EM TODO 0 BRASIL 
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DESGRILANDO 



O Apple é compatível com o Apple II +, isto é, um pro¬ 
grama que roda num Apple II + roda num Apple lie? Quais as 
diferenças existentes entre ambos? Existe a possibilidade de 
tanto o lie como o II -I- operarem, além do BASIC, outras lin¬ 
guagens, como o PASCAL, FORTRAN e o sistema operacio¬ 
nal CP/M? Quais os s/ots de expansão que possui cada um 
deles? Até que ponto vai a capacidade do II + e do lie em 
aplicações técnico científicas? Existem programas disponíveis 
nestas áreas no mercado? 


Luiz Carlos Bonetti 
Araraquara — SP 

Caro Luiz, 

Além do H e II +, a Apple lançou outros computadores: 
o Apple III, o Lisa, o Apple He, o l/c e o Macintosh. Os dois 
primeiros (o III e o Lisa), foram fracassos de mercado e ten¬ 
dem a desaparecer. 

O Apple He é um Apple II + melhorado: já vem com 
64kde RAM e com cartão de 80 colunas já incorporado ao sis¬ 
tema, e possui oito "slots" (barras de expansão), onde é pos¬ 
sível colocar-se cartões de expansão como, por exemplo, o 
cartão CP/M. 

0 sistema operacional adotado para os disquetes é o 
PRODOS, que pode também ser usado no H +. Entretanto, ele 
aceita o programa operacional 3.3 e todo o software desen¬ 
volvido no Apple II + (a reciproca não é verdadeira). Desta 
forma, podemos responder a sua pergunta sobre compatibili¬ 
dade e outras linguagens de forma afirmativa. Quanto ao de¬ 
sempenho, afirmamos que o Apple, em qualquer uma destas 
versões, é bastante versátil para rodar aplicativos técnico-cien¬ 
tíficos, existindo já alguns programas desenvolvidos nesta 
área. 


INPUT com tempo de espera 

Não posso deixar de, em primeiro lugar, parabenizá-los 
pela publicação da excelente revista Microhobby, da qual sou 
assinante e admirador. Sirvo-me desta, entretanto, para solici¬ 
tar de vocês uma possível solução para um problema relacio¬ 
nado com o programa abaixo: 

10 LET h=INT CRND*Í03 
20 LET B = INT (RND*10) 

30 LET X =R +B 

40 PRINT "OURIMTO E B " ; R ; “ + “ ; B 
50 INPUT R N 

60. IF R = X ThEH GOTO 100 
70 PRINT RT 5,0;“ERRhDO.h REJ 
5Th 5 a ’’ ; X 

30 PRUSE 100 
50 CLS 

55 GOTO IO 

100 PRINT RT 5 : O ;• 11 OORRETO“ 

110 PRUSE 100 
1£0 CLS 

130 GOTO 10 

Como sou amador, passo a maior parte do tempo em 
que uso o micro tentando criar alguns jogos, com o intuito de 
divertir minha família. De vez em quando vou encontrando 
certos grilos e situações novas que me esforço em resolver. 
Para o programa que mostrei, entretanto, encontrei uma difi¬ 
culdade que confesso não consegui solucionar, embora já 


tenha levado a outros amadores como eu e até a alguns afic- 
cionados mais íntimos com a programação BASIC. 

Este programa seria sub-rotina de um jogo, onde em 
determinado momento é solicitada a resposta de uma opera¬ 
ção aritmética simples (a soma de duas dezenas escolhidas ao 
acaso). Acontece que meu intuito é que a resposta R seja uma 
função do tempo, ou seja, o jogador deve ter um determi¬ 
nado tempo para entrar com os dados (por exemplo, 10 se¬ 
gundos); caso contrário o computador acuse erro. Já tentei 
usar PAUSE de todas as maneiras mas, evidentemente, o pro¬ 
grama ficará sempre parado quando encontrar a instrução 
INPUT, esperando a digitação do resultado. Tentei também o 
INKEY$, porém, neste caso, eu só poderia trabalhar com nú¬ 
meros de um dígito apenas. Como resolver este grilo? 

Ernesto G. Penteado 
São Paulo — SP 

Caro Ernesto, 

O problema que você nos apresenta é relativamente 
simples e pode ser resolvido usando-se apenas uma pequena 
rotina em BASIC. Existem outras soluções mais complicadas, 
envolvendo linguagem de máquina, mas cremos que esta lhe 
servirá muito bem. 

Resumindo sua dificuldade, você não pode usar o 
INPUT e o INKEY$. Eles resolvem o problema para um alga¬ 
rismo. Então devemos fazer com que o INKEY$ possa ser 
usado para mais de um algarismo. Isto é feito lançando mão 
da função de concatenação, ou seja, a soma dé strings. A 
concatenação nada mais é do que a justaposição de uma 
string com outra. Assim sendo, podemos " concatenar " os al¬ 
garismos do resultado, justapondo um ao outro. Isso é feito 
usando-se uma variável string, por exemplo, R$ que deverá ser 
iniciada com o caractere 0 (zero), para evitar-se erro e con¬ 
catená-la n vezes com o INKEY$, sendo n o número de alga¬ 
rismos do resultado. Para fazermos a comparação, deveremos 
calcular primeiro o VAL desta variável string e continuar com o 
programa. As repetições poderão ser controladas por um loop 
FOR/NEXT e o tempo deverá ser comandado por um PAUSE 
antes da Unha onde aparecer o INKEYS. Assim o jogador deve¬ 
rá digitar os algarismos um a um e, para que ele não tenha 
problemas, um feedback é fornecido, aparecendo cada valor 
digitado no vídeo. Isto pode ser feito substituindo a Unha 50 
pela seguinte rotina: 

35 LET R $ = 1: 0 ; ' 

50 FOR 1=1 TO 2 
53 PRUSE 100 
55 LET R$=R$+INKEY$ 

57 PRINT RT 3 -3;R$ 

53 NEXT I 
55 LET R=URL R$ 

Desta forma seu programa poderá ser escrito como: 


10 LET R = INT ÍRND*10) 

20 LET B = INT ÍRND*10) 

30 LET X =R +B 
35 LET R$ = ‘-0 ,! 

40 PRINT "QURNTO 5* !! ; R ; ; B 

50 FOR 1=1 TO 2 
53 PRUSE 100 
55 LET R$=R$+INKEY$ 

57 PRINT RT 3,3;R$ 

53 NEXT I 
55 LET R =URL R$ 

60 IF R = X THEN GOTO 100 
70 PRINT RT 5 : O ; R ; f! ERRRDO. R 
RE5P0STR E 1 ;! ; X ’ 

30 PRUSE 100 
50 CLS 
55 GOTO 10 

100 PRINT RT 5 : 0 ; R ; " CORRETO , !! 
110 PRUSE IO© 

120 CLS 
130 GOTO 10 
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Note que alteramos as Unhas 70 e 100 para que o joga¬ 
dor tenha um feedback sobre o seu desempenho. 

Imprecisão 

Tenho um TK 85 de 16 k e resolvi fazer a seguinte linha 
imediata: 


PRINT 


Isto deveria fornecer o resultado zero; entretanto 
obtive — 1,8626452 x IO -9 . A seguir, executei a seguinte linha 
imediata: 


Desta vez obtive zero. Qual a diferença? Por que o pri¬ 
meiro resultado não é zero? 

Resolvi então fazer um programa para fazer esta opera¬ 
ção (F/N)*N — F com todos os números de um algarismo. 0 
programa é o seguinte: 


5 FÜR F=i TO 9 
3 PRINT ThE 9 ; ;! F = :: ; F 
IO FÜR N=1 TO 9 
13 L3T K= CF/M) *N-F 
20 PRINT N,K 
30 NEXT N 
40 PhüSE 100 
45 CL5 
50 NEXT F 


Só três operações apresentaram erro: 

(3/5)*5—3 = 9.3132257 x 10- 10 
(5/7)*7 — 5 = -1.8626452x10- 9 
(6/5)*5— 6 = 1.8626452x10- 9 
Por que isso ocorre? 

Salomão Meireles Barguil 
Belém — PA 

Caro Salomão , 

O problema que você aponta é devido ao fato de que al¬ 
guns números decimais com valores após o ponto decima! \ 
não tem representação binária exata. Desta forma, poderão 
ocorrer problemas em alguns cálculos, como o que você 
aponta. Levando isso em consideração\ muitas vezes um pro¬ 
grama pode não funcionar porque existe uma comparação em 
que um número deve ser igual a zero e os cálculos não são 
exatos. . . 

Nestas situações é conveniente usar-se alguns macetes 
para evitar-se inconvenientes. Por exemplo , se um valor , ao 
assumir zero , comanda alguma operação , como na Unha de 
programa: 


20 IF X=0.THEN PRINT i! ZERO :: 


podemos alterá-la , conforme o caso: 


20 IF X < 0 9 ND X >-1 THEN PRINT 
ZERO Si 


Lembre-se de que cada caso é um caso. E uma solução 
que serviu para um programa, pode não servir para outro. 



para instrução e 
lazer em 
dois volumes. 


níutria 

uivtria*$e aprenaenuo 
truques 

de programação . 


Ensina linguagem de 
máquina para 
você tirar o máximo 
proveito 
do seu micro. 


Curso didático de 
linguagem Basic 
para iniciantes , 
com muitos exemplos 
e exercícios . 


Publicações e Material Didático Ltda. 

fone: (011)826 5001 


COLECAO DE 
PROGRAMAS 


Não deixe de ler estes livros. 


Sim quero receber os livros assinalados abaixo: 
(faça um "X"). 

□ Linguagem de máquina para o TK. 

CrS 17.900,00 

□ Curso de jogos em Basic TK. Cr$ 7.800,00 

□ Coleção de programas Vol. í. Cr$ 8.900,00 

□ Coleção de programas Vol. II. Cr$ 9.900,00 

□ Basic TK. CrS 11.800,00 

Valor total CrS 56.300,00 


Envie seu cheque nominal e cruzado, ou 
vale postal para Micromega P. M. D. L tda. 
Caixa Postal 54096 — CEP 01296 
São Paulo — SP 

Nome: _ 

Endereço: _ 

CEP: _ Cidade: _ 


Estado: _ 

Assinatura: 


. Data: 


Válido até 31/12/84 


























Explorando o TK 2000 



Luís Carlos Szente/Wilson Jose Tucci 


Neste artigo nós vamos continuar a 
trabalhar com gráficos de alta resolu¬ 
ção. Iremos apresentar a rotação de fi¬ 
guras poligonais em torno do eixo x e do 
eixo y. 

Primeiramente vamos analisar a ro¬ 
tação em torno de um eixo paralelo ao 
eixo y. 

Imagine os três eixos coordenados 
X, Y, Z. 



Se formos girar em tomo do eixo y, 



Conforme vimos no artigo anterior, 
imaginemos que os eixos x', y' gire um 
ângulo de cr .Ao determinarmos as no- 

12 MICROHOBBY 


vas coordenadas xp e zp nesses eixos 
coordenados x'z', devemos projetá-los 
novamente nos eixos XY, ou seja: 

Xp = Xr (coser) -I- Zr (sen cr) + Yr(0) 

Zp = Xr(—sencr) + Zr(cos«) + Yr(0) 

Yp = Yr (não foi alterado) 

Análogo para o giro em torno do ei¬ 
xo y, ou seja: 

Xp = Xr (inalterado) 

Yp = Yr (coser) -l- Zr (-sencr) 

Zp = Yr(sencr) + Zr(coscr) 

Neste programa, o polígono é pri¬ 
meiro "girado" em torno do eixo y. Os 
"giros" serão de 20°. A linha 80 estabe¬ 
lece este incremento angular. O "loop" 
das linhas 100 à 340 provoca 6 vistas 
(20° em 20°). 

A partir da linha 350 até a linha 620 
é o análogo para a rotação em torno do 
eixo x. 

A sub-rotina da linha 9600 à 9695 
corresponde à formação da rotação do 
eixoy. 

A sub-rotina da linha 9800 à 9900 é 
análogo ao eixo x. 

A sub-rotina da linha 9700 à 9740 
calcula a nova posição do ponto. 

Teste o seguinte exemplo: 

RUN 

X0, Y0, Z0 = 140, 80, 0 
R = 40 
NS = 4 

e observe a figura 3. 



Teste depois para NS = 12, 8, 90. 
Obs. = O valor máximo de NS é 90. 


0 REH EXPLORANDO 0 TK-2000 

H! 

10 HGR : HCQL0R= 7 
20 DIH XR(90),YR(90),ZR(90) 

30 DIH XP(90),YP(90),ZP(90) 

40 DIH C(3 f 3) 

50 INPUT "X0 t YO,ZO = -;X0 f Y0 f ZO 
60 INPUT H R= ";R 
70 INPUT B NS= B ;NS 
80 DALFA = 20 * 3.14159 / 180 
90 ALFA = - DALFA 
100 FOR J = 1 TO 5 
110 ALFA = ALFA + DALFA 
120 60SUB 9800 
130 DTHETA = 360 / NS 
140 DTHETA = DTHETA * 3.14159 / 1 
80 

150 THETA = - DTHETA 
160 FOR 1*1 TO NS 
170 THETA = THETA ♦ DTHETA 

































180 XR(I) = R * COS (THETA) 

190 YR(I) = R * SIN (THETA) 

200 ZR(I> = 0 

210 A = XRU) 

220 B = YR(1) 

230 CC = ZR (I) 

240 60SU8 9700 
250 XP(I) = X 

260 YP(I) = Y 

270 ZP(I) = Z 

280 NEXT 1 

290 HPLOT XPÜ) ,YP(1) 

300 FOR I = 2 TO NS 
310 HPLOT XPÜ - II,YP(I - 1) TO 
XPÜ) ,YP(I) 

320 NEXT 1 

330 HPLOT XP(NS),YP(NS) TO XPÜ) 
, YP(1) 

340 NEXT J 

350 DBETA = 20 * 3.14159 / 180 
360 BETA = - DBETA 
370 FOR J = 1 TO 5 
380 BETA = BETA + DBETA 
390 GOSUB 9600 
400 DTHETA = 360 / NS 
410 DTHETA = DTHETA * 3.14159 / 1 
80 

420 THETA = - DTHETA 


430 FOR I = 1 TO NS 

440 THETA = THETA + DTHETA 

450 XRÜ) = R * COS (THETA) 

460 YRÜ) = R * SIN (THETA) 

470 ZR (I> = 0 

480 A = XRÜ) 

490 B = YRÜ) 

500 CC = ZR (I) 

510 GOSUB 9700 
520 XPÜ) = X 

•530 YPÜ) = Y 

540 ZPÜ) = Z 

550 NEXT I 

560 HPLOT XPÜ),YPÜ) 

570 FOR I = 2 TO NS 
580 HPLOT XPÜ - 1) ,YP(I - 1) TO 
XPÜ),YPÜ) 

590 NEXT I 

600 HPLOT XP(NS),YP (NS) TO XPÜ) 
,YPÜ) 

610 NEXT J 

620 END 

9600 REN 

9610 C(l,l) = 1 

9620 C(l,2) =0 

9630 Cd, 3) = 0 

9640 C(2,1) = 0 

9650 C(2,2) = COS (BETA) 


9660 C(2,3) = SIN (BETA) 

9670 C(3,1) = 0 

9680 C(3,2) = - SIN (BETA) 

9690 C(3,3) = COS (BETA) 

9695 RETURN 
9700 REN 

9710 X = XO + A » C(l,l) ♦ B * C( 

2.1) ♦' CC * C(3,1) 

9720 Y = YO + A * Cd,2) + B * C( 

2.2) + CC * C(3,2) 

9730 Z = ZO + A * C(1,3) + B * C( 

2.3) + CC * C(3,3) 

9740 RETURN 

9800 REN 

9810 C(l,l) = COS (ALFA) 

9820 Cd, 2) =0 

9830 C(1,3) = - SIN (ALFA) 

9840 C(2,l) = 0 
9850 C(2,2) = 1 
9860 C(2,3) = 0 
9870 C(3,1) = SIN (ALFA) 

9880 C(3,2) = 0 

9890 C(3,3) = COS (ALFA) 

9900 RETURN 


A listagem e a figura 3 foram im¬ 
pressas pela Mônica da Elebra Informá¬ 
tica. 



FAÇA DE S 
MICRO 
“SINCLAIR” 

UM 

PROFISSIONAL 


Dê-lhe um 


ôpeed 


Vantagens: 


□ Maior dinamismo na entrada de dados 

□ Vida útil maior que 2 milhões de operações 

□ Um teclado profissional com switches individuais e acionamento mecânico. 

□ Gabinete em Fiber-Glass que suporta vídeo de 12 polegadas e acondiciona micro, 
expansão e fonte. 


Speed Eletro Eletrônica Ltda. - Rua I (i) n.° 395 - Bernardo Monteiro - 32.000 - Contagem - MG - Caixa Postal 1036 - Tel: (031) 463-3171 - 351-1887 
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Introduzindo o "Ampersand" 



li Parte 


Nesta segunda parte, mostraremos 
um uso prático do comando Ampersand: 
uma maneira de racionalizar a apresentação 
das páginas de texto, 
gráficos em baixa resolução e gráficos 
em alta resolução, bem como páginas mistas. 
Com uma pequena sub rotina em Linguagem 
de máquina, o comando & transformar-se-á 
numa poderosa ferramenta de programação. 

Daniel R. Falconer/ Wilson José Tucci _...z; 1 - 1 — - . .. 


Na primeira parte deste artigo tive¬ 
mos um pequeno contato com o co¬ 
mando 8- do BASIC. Vimos como "'li¬ 
gar" uma rotina pronta, em linguagem 
de máquina, ao Ampersand, através do 
vetor na posição $3F5. Não tínhamos 
meios para fazer esse interfaceamento 
com duas ou mais rotinas ao mesmo 
tempo, já que não podíamos passar ne¬ 
nhum parâmetro de forma fácil. Vere¬ 
mos, nesta segunda parte, uma forma 
de fazer exatamente isso. 

Como já dissemos no artigo ante¬ 
rior, não será fácil acompanhar esta 
parte sem alguns conhecimentos de lin¬ 
guagem de máquina. 

A rotina "CHRGET'' 

A base de qualquer passagem de 
parâmetros direta, entre o BASIC (atra¬ 
vés do Ampersand) e um programa em 
linguagem de máquina, é uma pequena 
rotina embutida na página zero, deno¬ 
minada CHRGET. Toda vez que o 
BASIC está executando uma linha de 
programa e termina de interpretar um 
caractere dessa linha, a rotina CHRGET 
é chamada para pegar o caractere se¬ 
guinte. Vejamos o que essa rotina faz, 
especialmente em relação ao Sc. 

Quando o interpretador BASIC en¬ 
contra o Ampersand, a execução é 
transferida à rotina apontada pelo vetor 
$3F5, como já sabemos. Na entrada, o 
acumulador contém um byte que repre¬ 
senta o caractere seguinte ao Sc; este 


pode ser um código ASCII, se for me¬ 
nor ou igual a $7F, ou um "token" re¬ 
presentando uma das palavras reserva¬ 
das do BASIC, se for maior que Sc 7F. 
Isto nos leva a concluir que a "tokeni- 
zação", ou seja, a separação das pala¬ 
vras reservadas, é feita antes da linha ser 
analisada para execução. Todos os es¬ 
paços (fora de strings laterais) são igno¬ 
rados. Por exemplo, se a linha de pro¬ 
grama sendo executada for: 

10 & HGF; 

o acumulador conterá, na entrada da ro¬ 
tina do usuário, o valor $91, que é o to¬ 
ken para HGR. Se a linha fosse 

10 & RBC 

o acumulador teria o valor $41, código 
ASCII de A. 

Então, para que nossa rotina possa 
interpretar um comando, basta chamar 
CHRGET várias vezes, interpretando-o, 
caractere por caractere, token por to¬ 
ken, até atingir o fim do comando, indi¬ 
cado pelo fim de linha ou por dois pon¬ 
tos: o separador de comandos. Mais 
uma vez, o CHRGET facilita nosso tra¬ 
balho: quando CHRGET é chamado e 
uma destas condições é encontrada, o 
"flag" de "carry" virá zerado ou o de 
zero virá ativado. Portanto, a seqüência 
de instruções 


PRÓXIMO JSR CHRGET 
BCC FIM 
BEQ FIM 


provocará um desvio à rotina FIM se,.e 
somente se, CHARGET chegou até o 
fim do comando. Se esse fim de coman¬ 
do ainda não tiver sido atingido, a exe¬ 
cução prosseguirá normalmente, com o 
caractere seguinte no acumulador. 

Um exemplo prático 

Uma aplicação simples que pode¬ 
mos demonstrar é uma rotina curta que 
nos permita visualizar uma tela de gráfi¬ 
cos ou de texto, substituindo aqueles 
tão conhecidos POKEs por comanqjos 
mais simples, como Sc HGR, Sc HGR2 ou 
Sc TEXT. Podemos, também, incluir va¬ 
riações como, por exemplo, a letra M in¬ 
dicando que a tela deve ser colocada no 
modo mixto texto/gráficos. O programa 
da figura 1 cuida disso. 

Podemos colar esta rotina na pá¬ 
gina 3, através do monitor (figura 2). 

Agora, basta colocar o vetor Sc3F5 
apontado para nossa nova rotina: 

3F5: 4C00 03 

Feito isso, podemos usar coman¬ 
dos como cV: HGR, & HGR2M, Sc TEXT, 
etc. Note que, para evitar complicações, 
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CMP 

«137 

;token para TEXT 

HGR2 

LSR 

$C055 


BEQ 

TEXT 



BPL 

HGR 


CMP 

«144 

;HGR2 

HGR 1 

LSR 

$0054 


BEQ 

HQR2 


HGR 

LSR 

$C05? 


CMP 

«145 

;HGR 


LSR 

$C052 


BEQ 

HGR1 



LSR 

$C050 


CMP 

•$40 

;‘M‘ 


BPL 

PR0XIM0 


BEQ 

MIX 


MIX 

LSR 

$C053 


JMP 

$DEC9 

;'7SVNTRX ERROR 1 

PR0XIM0 

JSR 

CHRGET 

;Pegar o próximo caracter 


$C051 



BCC 

FIM 

;Terminar, e chegamos 

LSR 



BEQ 

FIM 

; ao fim do iornando. 

LSR 

$C054 



JMP 

RMPER 

;Se não, rei liciar. 

BPL 

PR0XIM0 

;desvio sempre tomado 

FIM 

RTS 






Fig.1 


o programa não acusa erro para um co¬ 
mando como Sc HGR TEXT; em um 
caso como este, vigorará o último modo 
definido. O programa usou a rotina 
CHRGET ($B1) e a rotina SNERR 
($DEC9); esta última força uma condi¬ 
ção de erro, provocando a mensagem? 
SYNTAX ERROR (ou, se o ONERR esti¬ 
ver ativo, produzindo o código de erro 
correspondente). 

De forma alguma pretendemos es¬ 
gotar o assunto como este pequeno ar¬ 
tigo; ele serve apenas como uma intro- 


300 

C9 

89 

F0 

0F 

C9 

90 

F0 

13 

308 

C9 

91 

F0 

14 

C9 

4D 

F0 

1E 

310 

4C 

C9 

DE 

4E 

51 

CO 

4E 

54 

318 

'C0 

10 

16 

4E 

55 

CO 

10 

03 

320 

4E 

54 

CO 

4E 

5? 

CO 

4E 

52 

328 

CO 

4E 

50 

CO 

10 

03 

4E 

53 

330 

CO 

20 

BI 

00 

90 

05 

F0 

03 

338 

4C 

00 

03 

60 






Fig.2 


dução geral. Usando um pouco de ima¬ 
ginação, podemos criar roti ias muito 
úteis, que podem, mais tarde ser usa¬ 
das por um programa em BAv IC, fun¬ 
cionando como uma verdadein exten¬ 
são da linguagem. Como sempí pro¬ 
gramas e comentários serão bem a eitos 
por nós. 

As listagens desse artigo foram execuU ^ 

das na impressora Mônica da Elebra In 
. for má ti ca. 

V___^ 
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Conhecendo os 80 

o*/ 


Você que possui um.micro de Unha TK, já 
deve ter tido oportunidade de mexer num micro da 
família do TfíS-80. Muitos dos nossos leitores 
tiveram, inclusive, a chance de programá-lo sem 
grandes dificuldades. 


Toshinobu Ishida 


Num certo domingo, recebi a visita 
de um amigo vidradíssimo no seu TK-85, 
generosamente equipado com 48k de 
memória. Ao apresentá-lo ao meu 
micro, a primeira pergunta que ele fez 
foi o seguinte: Aonde fica o botão que 
liga? A segunda pergunta foi: Qual o ta¬ 
manho da memória? Muito contente ao 
ouvir que o meu micro só possui 16k, 
ele começou a experimentar um peque¬ 
no programa, criado na hora, e pude no¬ 
tar algumas coisas: 

1?) O comando AUTO não foi uti¬ 
lizado. 

2?) Digitava inteiramente os co¬ 
mandos PRINT, REM e THEN. 

3?) Colocava somente um coman¬ 
do por linha. 

4?) Terminou o programa com 
STOP. 

Como o BASIC dos TKs é muito se¬ 
melhante ao do TRS, o programa fun¬ 
cionou perfeitamente. Esta semelhança 
deixa de existir quando se compara os 
comandos de entrada e saída, mas o ní¬ 
vel de atribuições seguidas de cálculos, 
não há grandes problemas. 

O BASIC, utilizado nos TRS-80, 
é de padrão Microsoft e possue muitas 
facilidades em relação ao BASIC TK, 
sendo o seu sintaxe praticamente igual 
ao MBASIC, que é intensamente utili¬ 
zado nos sistemas compatíveis com 
CP/M. 

Voltando ao assunto, vamos exami¬ 
nar o comando AUTO. 

Este comando tem a seguinte sin¬ 
taxe: 

AUTO X, Y 

A execução deste comando direto 
produz numeração automática das li¬ 
nhas de programa, de tal modo que a 
primeira linha seja numerada com Xeo 
incremento (o quanto aumenta) seja Y. 
Por exemplo: 

AUTO 10, 5 

A numeração inicia-se no 10 e au¬ 
menta de 5 em 5 aoós a introdução de 
cada linha. 

O comando PRINT pode ser substi¬ 
tuído no momento da digitação pelo 
ponto de interrogação (?), diminuindo o 
trabalho de apertar teclas. Ao listar o 
programa, você notará que os sinais (?) 
foram todos substituídos pela palavra 
PRINT. 


O comando REM pode realmente 
ser trocado pelo apóstrofe ('), pois ao 
listar o programa não há substituição tal 
como ocorria corr o comando PRINT e 
(?). 

Existe mais uma equivalência que 
mesmo os usuários do TRS-80 às vezes 
não conhecem. A palavra THEN, que é 
utilizada num comando condicional IF, 
pode sofrer substituição pela vírgula (,). 

No BASIC do TRS-80, há possibili¬ 
dade de colocar inúmeros comandos 
numa mesma linha, desde que estes se¬ 
jam separados por dois pontos (:). 

Apesar de existir o comando STOP, 
este não é utilizado normalmente para 


terminar um programa (usa-se END), 
mas sim para provocar interrupções pro¬ 
positais durante o decorrer do progra¬ 
ma, para que se possa analisar a situa¬ 
ção do sistema naquele ponto. 

Por último uma advertência: exis¬ 
tem programas RENUM (renumerado- 
res de linhas de programa), que não de¬ 
tectam o uso da vírgula no lugar do 
THEN, provocando grosseiros erros nos 
desvios. Por exemplo: 

Caso 1 10 IF A = 5 THEN 20 

Caso 2 10 IF A = 5, 20 

Pode não ocorrer a renumeração do 
número que indica o destino do desvio 
(20) no caso 2. 


COMO UM COMPUTADOR 
DARDO - O MELHOR PROGRAMA 

DE TRANSPORTE 
TAMREM NA INFORMÁTICA 


(serviços realmente executados em 24 horas) 



Rio, São Paulo e vários pontos do Brasil 
RIO DE JANEIRO - Telex: (021) 31060 - Tel.: (021) 580-2373 
SÃO PAULO - Telex: (011) 22314 - Tel.: (011) 201-4266 
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Computação 

I ■ H1ÉÉ LIVROS DE QUALIDADE 

INICIAÇÃO AO BASIC 

Fox/Fox — Cr$ 9.900,00 

Escrito em estilo fácil, este livro, destina-se especialmente aos 
arincipiantes que não tenham acesso aos micros, mas que desejam 
familiarizar-se com os conceitos de programação. 

Pode ser aplicado a qualquer computador que use a linguagem 
BASIC. 

Um texto alegre que aceita a possibilidade do leitor não ter expe¬ 
riência anterior. 


McGraw-Hill 

NOVA REVOLUÇÃO INDUSTRIAL 

Na Era dos Computadores 
Osborne — CrS 6.900,00 

Esta convincente e provocativa obra, fornece ao leitor, esclare¬ 
cimentos sobre o poder e o futuro dos micros, antecipando mudan¬ 
ças radicais até o final deste século. 

O autor explica a revolução da microeletrônica e seu impacto na 
sociedade. 

LIVROS UNIVERSITÁRIOS E CURSOS 


CP/M - GUIA DO USUÁRIO 

Hogam - CrS 13.900,00 

Escrito para usuários de bom nível de conhecimento. Este livro 
:onsidera a história e funções do CP/M bem como os comandos pró¬ 
prios para o usuário. Inclui o CP/M-86, sistema operacional basea- 
io no 8086 e 8088. 

ntr. aos microcomputadores 

Dsborne — CrS 12.500,00 

Livro para principiantes em microcomputação. Os conceitos bá- 
iicos sobre todos os Micros: como funcionam e o que eles podem 
azer. Introduz o leitor nas linguagens de programação, códigos bi- 
wios e aritmética, lógica, temporização, memória e como usá-los. 

\PPLE II - GUIA DO USUÁRIO 

>oole - CrS 23.900,00 

Este é o melhor e mais completo manual do APPLE II. Contém 
fescrição de todas instruções, comandos e funções. 

Uma seção especial em programação avançada e aplicações. 
Dlaro e objetivo. Obrigatório para os usuários do APPLE II. 

PROGRAMAS USUAIS EM BASIC 

* Programas usuais em Basic TRS-80 

* Programas usuais em Basic APPLE II 

* Programas práticos em Basic 

>$12.000,00 cada 

Vários programas práticos para pequenos negócios, pequenas em¬ 
presas de Engenharia, Administração, Matemática e Economia 
Doméstica. 

t/l AN UAL DE BASIC PARA O APPLE II 

>eckham — Cr$ 13.900,00 

Manual prático que possibilita ao leitor aprender a programar o 
\PPLE II através de exercícios dirigidos. 

Escrito em linguagem fácil, acessível, dirigido a hobistas e estu- 
iantes. 

/i9irAi r 

:astlowitz - Cr$ 12.900,00 

Um guia prático para utilização do software VISICALC. Através 
la leitura deste manual, o usuário poderá obter o máximo em quali- 
lade e eficiência em sua atividade. 

CONSTRUA SEU PRÓPRIO MICROCOMPUTADOR 

Jsando Z-80 

jarcia - Cr$ 22.900,00 

Este guia prático, mostra como você pode construir seu próprio 
licrocomputador, baseado no famoso microprocessador, o ZILOG 
80. 

Cada subsistema do computador é completamente explicado e 
aseado em informações testadas de forma que o leitor possa facil¬ 
mente modificar o sistema. 

Muito fácil compreensão. 


COMPUTADORES E PROGRAMAÇÃO 

Gottfried - Cr$ 13.500,00 

A finalidade deste texto é fornecer um curso de programação de 
computadores, empregando a estrutura padronizada da linguagem 
BASIC. 

Proporciona ao leitor condições de organizar e escrever eficien¬ 
temente programas de computador. 350 problemas resolvidos. Des¬ 
tina-se a todos o curso do ensino Superior e Técnico que utiliza o 
BASIC como linguagem. 

PROGRAMAÇÃO COM BASIC 

Scheid - Cr$ 13.500,00 

Quinhentos e trinta e cinco problemas resolvidos e vários pro¬ 
gramas usando a linguagem FORTRAN, BASIC, PASCAL e PL/1. 

Introdução à Computação e Programação, destinado ao merca¬ 
do Universitário em cursos de Engenharia e Administração. 

CIÊNCIA DOS COMPUTADORES 

Tremblay - Cr$ 13.500,00 

Introdução à Ciências dos Computadores, usando uma aborda¬ 
gem ALGORÍTMICA. 

Livro texto dirigido à Engenharia, Matemática e outras áreas 
afins. 

Best Seller nos EUA. 

INTRODUÇÃO A CIÊNCIA DOS COMPUTADORES 

Scheid - Cr$ 10.900,00 

Teoria que possibilita plena compreensão da introdução ã ciência 
dos computadores. 

Indicado para cursos de Engenharia e Administração {2°.s anos). 
Vários problemas propostos e resolvidos. 

CIRCUITOS DIGITAIS E MICROPROCESSADORES 

Taub ^ Cr$ 14.900,00 

Livro texto dirigido à Escolas de Engenharia, às áreas de projetos 
lógicos e microprocessadores. 

Concentram-se nos modelos 8080/8086 com detalhes para apli¬ 
cações em outras unidades. Explicações claras sobre FLIP-FLOPS e 
MÉMÓRIAS. 

300 problemas cuidadosamente elaborados. 

UM BEST SELLER! 

PROCESSAMENTO DE DADOS - Volume I 
PROCESSAMENTO DE DADOS - Volume II 

Verzello - Cr$ 10.900,00 

Mantendo-se inaependente de qualquer tipo de linguagem ou 
tipo específico de máquina, os autores discutem todos os assuntos da 
área de maneira integral. 

Como usar a tecnologia de computação para resolver problemas 
de processamento de dados. 

Livro introdutório para Economia, Administração e Engenharia. 
É acessível a estudantes com limitados conhecimentos mate¬ 
máticos. 



EDITORA McGRAW-HILL DO BRASIL LTDA. 


>ROGRAMAÇÃO TKS 82 83-85 CP 200 

lurley - Cr$ 5.900,00 


NOME _ 

ENDEREÇO 


Aprenda a programar seu TK e CP-200 muito facilmente. 
Programas em BASIC, jogos, gráficos, etc., para principiantes. 
Fácil assimilação e compreensão. 


LIVROS 


1ICROPROCESSADORES — Conceitos Básicos 
r sborne - Cr$ 13.500,00 


ANEXO CHEQUE □ REEMBOLSO POSTAL □ 


A mais compreensiva e atualizada introdução ao sistema de mi- 
roprocessadores. 

Tudo sobre microprocessadores. 

A maneira mais fácil e simples de entender os microprocessa- 
ores. 

Conceitos básicos. 


Rua Tabapuã, 1105 - CEP 0453 - Telefone: 88T8604 - Itaim-Bibi - 
São Paulo - Brasil. 

* Em todas livrarias do Brasil ou diretamente. 
Solicite catálogos. 








INVESTIGAÇÃO 

POLICIAL 


Eis o núcleo de um programa de aventuras 
onde você é Sher/ock Ho/mes! 



Nilson D. Martello 

Nos últimos anos, seja na literatura, cinema ou seriados 
de TV, o sucesso da Lei e da Justiça tem dependido quase 
exclusivamente dos músculos dos heróis. Cinqüenta e oito 
murros, doze pontapés, trinta e nove golpes de tae-kwen-dô, 
quinze litros de catchup e, noventa minutos após, o crime 
estará resolvido, o criminoso morto ou detido. 

Nem sempre foi assim e ainda há — mesmo entre os da 
jovem guarda — apaixonados pelo uso das células cinzentas 
no desvendar do responsável pelo crime. Nos últimos cem 
anos, alguns personagens foram criados — pele, ossos, mús¬ 
culos e cérebro — a ponto tal de encontrarmos, em Londres, 
a casa onde morou Sherlock Holmes (ele mesmo uma criação 
fictícia!). 0 mais curioso é que Holmes foi um divulgador do 
"jiu-jitsu" numa época em que não se falava nas ARTES 
MARCIAIS do Oriente. Para não mencionar um seu "pequeno 
vício": volta e meia desaparecia para fumar. . . ópio! Hercules 
Poirot — assim como Jane Marple — foram outras criações 
que dificilmente aceitamos como simples "personagens", ta¬ 
manha a vida que Agatha Christie emprestou a ambos. De 
comum entre eles: a detecção do crime através da dedução 
lógica, da observação sistematizada, da sensibilidade para 
com as qualidades (boas ou más) humanas. 

Mais recentemente surgiu outro tipo de detecção: a do 
espião. Diversos autores se projetaram, porém o inglês Eric 
Ambler ("A máscara de Dimitrius", "Epitáfio para um espião", 
"O levantino"), sobressaiu espantosa mente pela criação siste¬ 
mática do anti-herói. Envolvido involuntariamente nas tramas 
da espionagem ou do super-roubo, um homem como você ou 
eu termina por participar de situações perigosíssimas; quando 
termina o romance o pobre "herói" está machucado, estro¬ 
piado espiritualmente e ainda dá graças aos céus por ter esca¬ 
pado com vida. 

Entre nós os romances de mistério têm sido pouco 
explorados, embora Jerônymo Monteiro tenha escrito (com o 
pseudônimo de Ronnie Wells) mais de uma vintena de nove¬ 
las com o personagem "Dick Peter". 

E, finalmente, não custaria lembrar a criação insupe¬ 
rável de Issac Asimav com "Eu, robô", onde a detecção de 
problemas havidos com robôs aparentemente avariados (ou 
criminosos), leva a robô-psicóloga, Dra. Susan Calvin, às gló¬ 
rias de uma reaJ e inteligente detetive. Para não falar dos pró¬ 
prios contos de mistério de Asimov, infelizmente pouco divul¬ 
gados entre nós, que são pequenas jóias. 

O campo da Informática, através de jogos de Aventu¬ 
ras, presta-se deliciosamente para o emprego desse tipo de 
desafio. No Brasil temos algo no gênero, de autoria de Renato 
Degiovani, como "Aventuras na Selva" e "Aventuras em 
Serra Pelada", que obrigam o usuário a utilizar células ner¬ 
vosas ao invés dos espasmos musculares de um 007. 

"Investigação Policiar' 

O programa que segue — originalmente para micros 
com apenas 1 kByte de RAM — é um núcleo divertido sobre o 
qual o leitor poderá implementar, acrescentar ou modificar 
até chegar a uma verdadeira Aventura com 8, 10 ou mais qui- 


lobytes. Com apenas 3.650 bytes é algo bastante simples (em¬ 
bora sistematicamente diferente a cada partida), que não dei¬ 
xará de encantar nas reuniões. Para que o leitor possa acom¬ 
panhar cada passo, comentaremos linha a linha, esclarecendo 
o novato para que ele mesmo possa, logo mais, modificar e 
acrescentar o programa a seu bei prazer. Gostaríamos de ouvir 
notícias sobre essas modificações. 

O Programa 

Está subdividido em diversas sub-rotinas. A primeira 
delas serve apenas para desenhar a planta do escritório onde 
se desenvolverá a ação. Existem inúmeras outras maneiras — 
inclusive mais rápidas e práticas — de desenhar essa planta; 
no entanto, a proposta original de Drew Nisbet foi mantida 
com o intúito de mostrar ao leitor a riqueza de artifícios que 
podemos empregar num simples segmento de programa. 


1000 DIM • P (34.) 

1010 FOR 1 = 1 TO 34. 
1020 SOROLL 
1030 PRINT I;ThB 3 
104-0 INRÜT K 
1050 LET R(I)=K 
1060 RRINT PCI) 
1070 NEXT I 


Após digitar esta sub-rotina comande GOTO 1 e entre 
com os valores da tabela I, um a um, teclando NEWLINE ou 
ENTER após cada um. 

Não, não fique apavorado que ainda não é este o mis¬ 
tério do jogo. Já esclareceremos . . . 

Apague as linhas 1000 até 1070 (inclusive) e digite esta 
outra sub-rotina. 


100 LET K =1 
110 FOR 1=1 TO 7 
120 FOR J=1 TO 12 
130 PRINT CHR$ fl(K); 
14-0 LET K=K + 1 
150 NEXT J 
160 RRINT 
170 NEXT I 
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Tabela I 


•1 

2 

i 

•=; 

5 

è 

Q 

18 

11 

12 

1L 2 

13 

11 

15 

16 

17 

13 

19 

20 

21 

22 

2 J 

21 

5 

8 

38 

0 

8 

0 

0 

8 

0 

31 

8 

133 

2 

130 

37 

R 

25 

131 

3 8 

0 

27 

0 

39 

8 

28 

131 

18 

0 

29 

129 

11 

8 

38 

8 

12 

0 

31 

8 

13 

8 

32 

138 

11 

0 

33 

131 

15 

0 

31 

0 

16 

8 


131 

17 

8 

35 

129 

18 

133 

19 

•— 

51 

R 

58 

0 

52 

8 

51 

29 

63 

8 

52 

8 

51 

8 

53 

8 

55 

8 

51 

0 

55 

0 

RR 

0 

57 

0 

55 

0 

5 8 

0 

R7 

0 

59 

0 

55 

32 

78 

0 

RQ 

0 

71 

8 

58 

133 

72 

133 


73 

130 

71 

131 

7=: 

131 

76 

131 

77 

129 

78 

0 

79 

8 

88 

130 

81 

131 

82 

131 

83 

131 

81 

129 



Agora comande GOTO 1 (nunca digite RUN) e veja se 
surge, corretamente desenhada, a planta do escritório onde 
nossa pequena aventura se desenrolará. Se até agora você 
não tiver desvendado o "mistério" das sub-rotinas, perceba 
que os valores numéricos simplesmente se referem ao código 
em decimal do conjunto de caracteres de seu micro (confira no 
Manual do mesmo! É muito valioso folheá-lo e estudá-lo!). Por 
exemplo, na primeira linha estamos empregando o 7 que cor¬ 
responde ao caractere que se obtém pressionando-se GRA- 
PHIC + SHIFT + E; seguem-se 10 números "3" (Graphic + 
Shift + 7); e a linha termina com o caractere "espelho" do 
primeiro, o 132: (Graphic + Shift + R). Pronto: já está dese¬ 
nhada a linha superior da planta. Cada linha foi proposital¬ 
mente separada (embora na realidades todos os valores este¬ 
jam enfileirados na matriz A, sem solução de continuidade), 
para que você possa conferir possíveis erros, se ocorrerem. 

A sub-rotina 2 é o "mecanismo" de montagem da plan¬ 
ta, ou seja, o loop da linha 120 permite a separação de 12 valo¬ 
res, que serão "empilhados" em sete "camadas" (repetidas 
pelo loop da linha 110). A linha 130 Dermite a imoressão da 


conversão do valor em caractere. Depois que você entender o 
princípio de funcionamento poderá modificar a planta a seu 
próprio gosto, centrá-la na tela, etc. 

Bem, supondo que tudo esteja funcionando a conten¬ 
to, aproveite para gravar o que estiver pronto até aqui. Acres¬ 
cente as linhas: 


9998 5 P U E iNvBS” IGP SPO 

9999 GOTO 1 


Ao comando GOTO 9998 o programa começará a ser 
gravado (portanto, é óbvio, tenha já tudo preparado!). Note 
que estamos evitando o tempo todo o emprego de RUN. Se 
você o empregar, involuntariamente, terá o desprazer de ver 
seu trabalho destruído; portanto, cuidado. 

Agora digite o corpo principal do programa. Coloca¬ 
mos na tabela II, sempre que desejável, a explicação de cada 
linha para orientá-lo. AO NOVATO — não digite esses comen¬ 
tários! O leitor mais "tarimbado" que nos perdoe; porém lem¬ 
brando meus tortuosos e doloridos primeiros passos, creio ser 
muito importante ajudar quem está começando, mesmo por¬ 
que isto não prejudicará os mais adiantados. 


1 


18 
28 
38 
18 
58 
58 
78 
38 
98 
188 
118 
128 
138 
118 
158 
158 
178 
138 
198 
288 
218 
228 
238 
218 
258 
258 
270 
238 
238 
388 
318 
L G u 
320 


R E M IN U E 5 TIG - 3 3 3 P O _ 13 19 L 
hDPíP , N ILSÜNi hPPTizLO- JÜL31 
3558 BYTES 
GOTO 1080 
Rh ND 


CL 5 

LílT 3 = INI 
LET D=IN7 ! 

LET T = InT i 
LE^ HH=0 
LET PD =8 
LET 5=INT C 
LET K = 1 
FOR 1=1 TO 7 
FOR Ü=1 TO 12 
PR INT chré. hík: 
LET K=K + 1 
NEXT J 
PR INT 
NEXT I 


7 -, N L : ti 4 * _L 

9ND*1)+1 
RND*153+1 


. RND *3 3 li) 428 


PRINT "TENRO = " ; T ; " MIN . !! 

PR INT "EXAMINA R SRLA N* ?" i 
INPUT 5 

Ir S > 4- OR Sii THEN GOTO 200 
PR INI " : ";5 

PR INT "BUSCA (1) ARMA ? " 

PRINT " í23 DIGITAIS 

PRINT •' (33 AMBAS ?" 

INPUT S 


LET M = INT íRND *5 3 ti 
IF B > 3 OR B :1 THEN GOTO 260 
IF 6=3 THEN LET M-6 
LET T=T-M 

IF T > 3 RN D T ■; 3 THEN PRINT " 
EM 0 OSSERUfi, . , " 

IF 6=1 AND 6 =fi 0R 6=3 RND S 


=R THEN RRINT "ENCONTROU R RRMR. 


330 Ir 5 = R THc ; l:"!" A A = _ 

34.0 IF B =2 RN3 _ =3 OR B =3 RND 5 
=D THEN PRINT En03 -ROU DIGITAI 
S • *' 

350 IF 5 =D THEN LE" -3 =1 

360 IF RR =0 RND RD=D - ~EN PRINT 

"NRO HA NADA AQUI... 

370 FOR N = 1 TO 100 
380 NEXT N 

390 IF RR RND R3 THEN GOTO 500 
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400 IF Til THEN GOTO 600 

410 CL6 

420 GOTO 100 

500 OLS 

510 PR INT PT 10,0 ; " PP.RfíBE N 5 , UO 


05 ENCONTROU PS 
E 0 CRIMINOSO 0 
520 FOR N = 1 TO 
530 NEXT N 
550. GOTO 720 
600 CL5 

610 GOTO 6004E 
620 PRINT PT 10,0: 5UUMMH 

RPRPM UMP GRPNPDP EM UOCE." 

630 GOTO 700 _ 

640 PRINT PT 10,4, !35ii PT li 


PR0-UPS PNTES OU 
Pt-GPSSE" 

50 


PT I 


,13; SE 

as 


■3 : 


541 PRUSE 25 

542 PRINT RT 12.15; 

543,PRUSE 25 

544 PRINT RT 

545 PRUSE 25 
545 PRINT PT 
547 PRUSE 25 
545 PRll-rr PT 15 ,5 ;“UüCE UIROU P 

ENEIRR” 

549 PRUSE 90 

550 GOTO 700 

550 PRINT RT 10.0; 11 ENFIRRRM-LHE 
UM ESTILETE* NO OO-RRORO. NU NCR 
CONFIE NUM CRIMINO-SO...“ 

570 GOTO 70.0 
700 FOR N =1 TO ISO 
710 NEXT N 
720 CL5 

730 PRINT RT 10,0; "DESEJA OUTRR 
RUENTURR 7'' ; Í3/N) 

740 IF INKEV $ = :! ,f THEN GOTO 740 
750 IF INKEY$ = ,! 5" ThEN GOTO 20 
750 PRINT RT 15,0 ; "ENTRO , MEUS 0 
IROU IT05 It-iTEGPPDüE . PENHORADOS , 
PGPPDPCE M 
770 FOR N = 1 TO 50 
750 NEXT N 
790 OLS 

500 5T0P _ 

1000 PRINT RT 7:1; 


RT 9,1 


VESTIGPÜPÜ POLICIRL + + - 


“*** IN 
RT 11 1 


1010 FOR N=1 TO 50 
1020 NEXT N 
1030 OLS 

1040 PRINT RT 5,0;“SE UOCE ENCON 
TRRR R TEMPO R RRMRDO CRIME E RS 
IMPRESSÕES DIGI-TPX3 DO OULPR 
DO , ELE SERR* PRESO - " 

1070 PRINT RT 11.0: “POREM , CRUTE 

LR: _ ELE E5TR 

hR; 1 ri ate* , 

1050 FOR N=1 TO 50 
1090 NEXT N 
1110 GOTO 20 

9995 SRUE i! INUESTIGRCRS" 

9999 GOTO 1 


Dessa maneira o programa é auto-explicativo. Cabe¬ 
riam ainda alguns comentários. Na linha 10 remete-se para a 
apresentação de forma que, a cada repetição de um jogo o 
usuário não seja obrigado a suportar, de novo, a apresenta¬ 
ção. Até a linha 410 o programa diz respeito ao jogo, propria¬ 
mente dito; na linha 500 há o "final feliz", enquanto de 600 a 
710 surgem três alternativas de finalização de insucesso. Note 
que, de 640 a 650, empregamos pela primeira vez a função 


PAUSE. Normalmente ela provoca uma perturbação indese¬ 
jável na imagem que, neste caso, serviu para frisar o efeito dos 
"tiros de metralhadora", sacudindo a imagem. 

De 730 até 800 temos a parte final, onde o usuário 
decide-se continuar a jogar ou fnaliza de vez. 

A sub-rotina de 1000 a 1110 fica propositalmente fora 
do corpo principal do programa, auxiliando a acelerar um 
pouco este nosso lento "BASIC-nosso-de-cada-dia". 

Epílogo 

Algumas vozes vêm se levantando contra a "violência" 
nos video-jogos e programas para micros. Uma revista norte- 
americana dirigida a "teen-agers" chegou a publicar a opi¬ 
nião de um jovem leitor norte-americano, da qual isolamos 
algumas linhas: 

"Tenho doze anos . . . e escrevo a maioria de meus jogos em 
Assembly. (. . .) Eu escrevo apenas jogos não violentos em 
meu computador (. . .). 

Enquanto estou atirando, ou comendo, ou seja o que for no 
jogo, posso sentir-me identificado com o invasor, ou fantas¬ 
ma, ou robô, ou coisa semelhante. Eu me coloco no lugar 
deles. Não gosto de jogos violentos. 

Ken Buckley 
Pittsb. PA" 

Conquanto cada um tenha direito à sua opinião, a 
expressá-la e a gostar ou não disto ou daquilo, creio ser des¬ 
cabida a restrição que já começa a se esboçar também em 
nosso meio. Há um enorme fosso entre a fantasia e a reali¬ 
dade; não foram os romances de Arsene Lupin — uma espé¬ 
cie de criminoso Robin Wood do início deste século — que 
inspiraram os arqui-crimes dos campos de concentração de 
Dachau e Treblinka na II? Grande Guerra; nem videojogos ou o 
cinema estimulou o bombardeio atômico de Hiroshima e 
Nagasaki, duas cidades estritamente não-militarizadas do Ja¬ 
pão, naquela época. 

Ao mesmo tempo seria muita ingenuidade acreditar 
que seriados de TV (mesmo os de extremo mau-gosto), pos¬ 
sam ser responsabilizados pela violência que estoura em nosso 
meio; mesmo os "míopes", "estrábicos" e "zarolhos" podem 
ver a realidade muito mais violenta, injustiças muito mais insu¬ 
portáveis nas condições de vida de nossas favelas, na polui¬ 
ção assassina de Cuba tão e o mais que segue. 

Assim sendo, a metralha, granada e estilete do final 
deste programa — aliás, o próprio tema deste programa — 
devem ser encarados apenas dentro do que são: um jogo fan¬ 
tasioso, uma brincadeira marota, e "penalidades" impostas ao 
jogador antes que ele consiga desenvolver sua estratégia e 
. . . "passar a perna" no programa. 


Tabel II: As linhas do programa 


Linha 

Comentário 

10 

apresentação 

20 

garante que os RND serão realmente casuais 

40 

esconde a arma 

50 

esconde as impressões digitais 

60 

limita o tempo das buscas 

70 

flag que indica se foi achada a arma (O = não) 

80 

flag que indica se foram achadas as impressões 

(O = não) 

90 

escolhe um de três finais 

100 

sub-rotina de desenho da planta 

210 

evita erros 

240 

observe 6 espaços 

250 

observe 6 espaços 

260 

escolha do tipo de busca 

270 

minutos gastos na busca 

280 

evita erros 

290 

penalisa o sabidão . . . (afinal, procurar duas provas 
simultaneamente leva mais tempo . . .) 

300 

desconta o tempo 

330 

encontrada a arma 

350 

encontradas as digitais 

360 

não foi encontrado nada ainda 

390 

foi encontrado tudo 
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SOFTWARE 


apresenta novas íitas com 
desafios emocionantes para você! 


PARA EQUIPAMENTOS COM LÓGICA SINCLAIR 


1. VALKIRIE 

Pilote a nave 
Valkirie e parta 
em busca de dez 
castelos perdidos. 
(Exclusividade 
Ciberne, por 
Divino C.R. 
Leitão). 

E mais: 
GUERRILHA 
CÓSMICA 
eZOR. 




2. MERCADOR DOS 
SETE 
MARES 

No século XIX 
você percorre o 
mundo a bordo 
de seu navio, em 
busca de bons 
negócios. 

E mais: 

CORRIDA MALUCA e PINBALL 
(Exclusividade Ciberne, por Divino 
C.R. Leitão). 



3. SUBESPAÇO 

Implacável 
caçada espacial. 
Totalmente 
gráfico. 

E mais: 

CAVERNAS DE 
MARTE 
(Exclusividade 
Ciberne, por 
Divino 

C.R. Leitão) e COMBOIO 


ESPACIAL. 


4. DEFENSOR 3D 



Livre nosso 
planeta de uma 
invasão 
alienígena. 

Fantásticas 
simulações 
tri-dimensionais. 

E mais: Q'BERT 
(Exclusividade 
Ciberne, 
por Divino C.R. Leitão) e 
ASSALTO. 


5. ROT I - PLUS 

• S.O.G. 

Sistema 

operacional, com 
linguagem 
gráfica. Infinitas 
opções de uso. 

Totalmente em 
código de 
máquina 

(Exclusividade Ciberne, por J. Magal). 

• MERGE 

Possibilita a junção de vários 
programas, uns aos outros. 


6. APLICT 

• COMP-CALC 

Rápido, eficiente e totalmente em 
código de máquina. A melhor versão 
do já famoso Visi-Calc. 

• COMP-ARQ 

Programa gerador de arquivos. 
Totalmente em código de máquina. 
Modele fichas e as acesse pelo 
campo que quiser. 

• COMP-TEXTO 

De fácil manipulação, totalmente em 
código de máquina. 



PARA EQUIPAMENTOS COM LÓGICA TRS-80 


1. SIMULADOR DE VÔO 

Totalmente 
gráfico e 
acompanhado 
de livro de 
instruções, com 
diagramas, 
tabelas etc. 

E mais: 

PINTOR 
MALUCO e 
O DESAFIO DA 
GALINHA. 



2. XADREZ 

O mais 

tradicional dos 
jogos, 

reeditado em 
nova e 
brilhante 
versão. 

E mais: 

PATRULHA 
ARMADA 
e PÂNICO 
(totalmente sonorizados) 



I Bichos e Ci'‘ w A’ JU - £ TAHtZZfHE 




PARAGRAFICS 



Aula 2 — Cálculos com 
a HP-41 



Na aula passada fomos apresenta¬ 
dos à uma notação alternativa para ex¬ 
pressões algébricas: a Notação Polone¬ 
sa Reversa (RPN). Vimos também que a 
HP-41 usa a RPN, mas como? 

A RPN é implementada na HP-41, 
como em todas as calculadoras Hewlett- 
Packard, através de uma pilha automá¬ 
tica de 4 registradores: X, Y, Z e T e da 
tecla ENTER, usada para separar dois 
valores consecutivos. 


A pilha 

Z 

Y 

X 


Acompanhe a tradução de duas ex¬ 
pressões em notação infixa para RPN, e 
o estado da pilha durante sua posterior 
elaboração: 

a) expressão em notação infixa: 3*2/1 
expressão em RPN : 3 2*1/ 


tecla 

pilha 

XEQ ALPHA CLST 

7= 0,00 

/ - 0,0r1 

Y= 0.00 

X = 0.00 

3 

7 = 0,00 

Z = 0.00 

Y — 0,0H 

X= 3 

ENTER 

7= 0,Hr1 

Z= 0,00 

T= 3.00 

X = 3.00 

2 

7= 0.00 

Z- 0,00 

Y= 3,00 

X- iL 

* 

T= 0,00 

Z r 0,00 

Y= 0,00 

X= 6,00 

1 

7= 0.00 

7- 0,00 

y= 6,00 

X = 1 

/ 

7= 0.00 

Z= 0.00 

Y= 8,00 

X= 6.08 


Repare nos seguintes pontos: 

i) Quando introduzimos um valor, esse 
dado entra no registrador X e empurra 
toda a pilha para cima (exceto logo após 
um ENTER ou um CLX). Portanto, o 
que estava em T é perdido. 

ii) Quando apertamos a tecla ENTER, a 
pilha toda sobe, mas o valor que estava 
em X continua. Por isso que a pilha não 
sobe no valor seguinte ao ENTER, pois 
ela já havia subido antes. 

iii) As operações *,/,+, — atuam 
sempre sobre os registradores Y e X, ou 
seja, sobre os dois últimos valores colo¬ 
cados ou calculados, como manda a 
RPN. 

A seguir temos um exemplo um 
pouco mais completo: 
b) expressão em notação infixa: 

(4 + 5)*(3 + 2) 

expressão em RPN: (Tabela II) 

4f5 + 4|2 + * 

Ao traduzir uma expressão em no¬ 
tação infixa para RPN é importante ob¬ 
servar uma regra para o bem da clareza e 
simplicidade: comece a traduzir na or¬ 
dem em que você executaria a expres¬ 
são com papel e lápis: 

Ex.: a expressão 

4x (17—12) : (10-5) 


é traduzida 
4 x (17—12) : (10-5) 

T 7 T 12 10 f 5 

Funções: a HP-41 já vem com um 
bom pacote de funções pré-programa- 
das. Tradução de expressões com estas 
funções seguem as mesmas regras das 4 
operações básicas (Tabela III). 


notação infixa RPN 

Ex. 3xsen(30) 3 30sen* 


V 16.30x5) / .0b 1 
(2 + 3) 


16.38 5*\íP .0.5/ 


2 3 + 5 y* 
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Exercícios Propostos 


TECLA 


PILHA 


PILHA 


XEQ ALPHA CLST 

ALPHA 


T= 0.00 
Z= 0.00 
Y= 0.00 
X= 0.00 


Z= 0.00 
Y= 9.00 
X= 3 


1) Passar para RPN e calcular o resul¬ 
tado: 

a) 4:8:6:2 = 

b) [(3 + 2) : 5] + 1 = 

c) [(2 + 3) : (4-12)] + [(8 + 5) x (7 + 15)1 


4 


ENTER 


5 


T= 0.00 
Z= 0.00 
Y= 0.00 
X= 4 


ENTER 


T= 0.00 
Z= 9.00 
Y= 3.00 
X= 3.00 


d) [(1 + 1) : 2] — [(2 + 3) : 41 + 2 

2 3 5 7 11 13 

e) sen 2 (30°) + cos 2 (30°) = 


T= 0.00 
Z= 0.00 
Y= 4.08 
X= 4.00 


2 


T= 0.00 
Z= 9.00 
Y= 3.00 
X= 2 


f) e 3 + sen(30°) = 

2. Passar para a notação infixa e calcu¬ 
lar o resultado: 

a) 1 5 + 2*3- 


T= 0.00 
Z= 0.00 
Y= 4.00 

X= 5 


+ 


T= 0.00 
Z= 0.00 
Y= 9.00 
X= 5.00 


b) 4 6 2*3:- 

c) 3 5 + 5 8+ *4 3-2*: 

d) 45° tan x 


T= 

Z= 

Y= 

X= 


0.00 

0.00 

0.00 

9.00 


T= 

Z= 

Y= 

X= 


0.00 

0.00 

0.00 

45.0@ 


Respostas no próximo número: 
Bibliografia 

The HP-41C/41CV owner's handbook 
and programming guide. 

The Hewlett-Packard personal calcula- 
to r digest. 


Errata: Merge Explicado II 
Daniel J. R. Nordemamm 


Introdução 

0 TK 83 e seus compatíveis oferecem a possibilidade de 
gravar um programa e dados numa fita cassete comum e de 
carregar a memória com um programa com dados já gravados. 
Mas, até agora, não existe a possibilidade de integrar da mes¬ 
ma maneira pacotes de dados já gravados a um programa pre¬ 
sente na memória, ou de reunir dois programas diferentes em 
um só como faz a instrução MERGE existente em algumas má¬ 
quinas. Não se trata da aquisição de dados, mas somente da 
sua manipulação por vários programas ou da integração de um 
programa a outro, usando apenas um gravador além do TK 83. 
O processo a ser descrito não precisa de modificação alguma 
nem de circuito complementar. 

Manipulação dos Dados 

A manipulação dos dados é fácil e não apresenta dificul¬ 
dades como perda de memória ou perda de cursor. 0 que dire¬ 
mos a seguir aplica-se a qualquer dado numérico ou caractere, 
mas, para facilitar as explicações, trataremos dados sob a for¬ 
ma de bytes, sendo a generalização dos dados numéricos bas¬ 
tante evidente. 

As mesmas posições disponíveis para programas escritos 
em hexadecimal podem ser usadas para os dados: dentro de 
um vetor de caracteres do tipo A$; num REM como 1 REM . . . 
cujo primeiro endereço útil é 16514; e acima de RAMTOP, 
após reservar um lugar conveniente abaixando RAMTOP atra¬ 
vés de instruções POKE, por exemplo, a seqüência de instru¬ 
ções POKE 16388, O (facultativa) e POKE 16389, 125 reserva 3 
vezes 256 bytes (com extensão 16 k cujo RAMTOP "natural" é 
32768 = 128*256). Chamar-se-ão 1, 2e3, respectivamente, os 
espaços na seqüência de caracteres, no primeiro REM e acima 
de RAMTOP. As transferências são operadas sem dificulda¬ 
des, tal como exemplificado abaixo: 

1- >2 FOR J = 1 TO 256 

LET V = 16513 + J 
POKE V, CODE A$ (J) 

NEXT J 
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- TRANSIENTES DE TENSÃO 

- RUÍDO ELÉTRICO 
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RÁDIO FREQÜÊNCIA (RF) 

POTÊNCIA: ATINGE ATÉ 1,5 KVA 
TENSÃO: 220V ou 110V 


ZENTRANX 


ELETRÔNICA, INDÚSTRIA E COMÉRCIO LTDA. 

NO BREAK ESTABILIZADORES DE TENSÃO 

Av. Vitor Manzini, 410/414 
CEP 04745 — Santo Amaro — S. Paulo 
Tels.: (011) 522-2159 e 548-0651 















QUEBRA-CABEÇA 



"O testamento da 
Sra. Hogweed" 

Renato da Silva Oliveira 


Chegamos a Londres há alguns 
dias. Estamos hospedados na casa de 
Harold Holmes. As moças que conhe¬ 
cemos no "Gandhi" estão aqui conos¬ 
co. Hoje, à hora do almoço, Harold 
contou-nos uma história muito interes¬ 
sante. Ele começou falando sobre o 
testamento de uma antiga amiga de 
sua família, a Sra. Hogweed: 

— 'Tenho comigo, aqui, o testa¬ 
mento da Sra. Hogweed. Vou ler uma 
parte dele para vocês. Creio que o 
acharão tão peculiar quanto eu o 
acho". 

• • • 

Disse isso e pôs-se a lê-lo enquan¬ 
to aguardávamos os criados nos servi¬ 
rem. Harold dava tal interpretação à 
leitura que era como se tivéssemos 
ouvindo a voz rouca e fraca da Sra. 
Hogweed em seu leito de morte. 

• • • 

— "Sei que estou prestes a dei¬ 
xar este mundo. Se há outro, eu não 
sei. Mas não tenho preocupação algu¬ 
ma com isso. O único pensamento que 
me aflige diz respeito ao futuro de 
meus sete filhos: John, Steve, Mi- 
chael, Anthony, Peter, Philips e Paul. 
Todos são muito geniosos e não se dão 
muito bem. Desde a morte de meu ma¬ 
rido, muitos atritos já surgiram entre 
eles. Preocupa-me a idéia de terem que 
disputar ou dividir a minha fortuna 
após o meu fim. Isso seria o fim dela 
também. Eu não quero que ela seja di¬ 
vidida e por isso, hoje, na presença dos 
sete, eu definirei quem passará a con¬ 
trolá-la após minha morte". 

Nesse ponto, Harold parou de ler 
e nos falou: "a Sra. Hogweed escreveu 
isso às vistas de seu advogado, tendo a 
mim e ao J Sr. Mayhew como testemu¬ 


nhas. Nesse dia, 28 de abril de 1983, 
ela recebia a visita de seus sete filhos. 
Eles aguardavam para vê-la e ela pediu, 
então, que nós os chamássemos. Após 
colocá-los a par do que procedia, con¬ 
tinuamos ". Com a mesma teatraliza- 
ção que antes, Harold continuou a ler 
o testamento. 

• • • 

"Meus filhos visitam-me freqüen- 
temente, cada um com uma periodici¬ 
dade diferente, imposta por suas ativi¬ 
dades. Assim, John visita-me todos os 
dias; Steve de dois em dois dias; Mi- 
chael, de três em três; Anthony, de 
quatro em quatro dias; Peter, de cinco 
em cinco dias; Philips, de seis em seis 
dias, e Paul, de sete em sete dias. A es¬ 
colha daquele que irá me suceder no 
controle de minha fortuna será feita 
através da periodicidade com que sou 
por eles visitada. Os critérios que nor¬ 
tearão a escolha estão elucidados 
adiante. 

Primeiro critério 

Será o escolhido, aquele entre os 
meus filhos que estiver me visitando no 
dia do meu falecimento. Caso haja 
mais de um deles visitando-me, a esco¬ 
lha será feita através dos demais crité¬ 
rios. 

Segundo critério 

Será o escolhido, aquele entre os 
selecionados pelo primeiro critério que 
visitar-me de tantos em tantos dias 
quantos forem os dias que eu viver na 
última semana de minha vida. Deve-se 
considerar que a semana inicia-se no 
domingo e se, por exemplo, eu morrer 
na quarta-feira, mesmo que seja a 1 
hora da madrugada, terei vivido quatro 
dias nessa última semana. Caso este 
segundo critério não defina um único 


escolhido, o terceiro critério deverá ser 
utilizado. 

Terceiro critério 

0 número (inteiro) de dias entre 
esta data (28.04.83) e a data de meu 
falecimento inclusive deverá ser com¬ 
putado e, então, a seqüência abaixo 
deverá ser alterada por esse número de 
vezes, da seguinte forma: o primeiro 
elemento da seqüência (à esquerda) 
deve ser colocado como último (à di¬ 
reita). 

A seqüência inicial é: 
1234567123456123451234 
123 

O escolhido será aquele entre os 
selecionados pelo primeiro critério que 
visitar-me de tantos em tantos dias 
quanto for o valor do primeiro elemen¬ 
to da seqüência após as alterações. 

Como exemplo, suponhamos que 
eu viva mais seis dias, isto é, que eu 
morra na quarta-feira, dia 4 de maio. 
Estarão visitando-me John, Steve, Mi- 
chael e Philips. Como terei vivido qua¬ 
tro dias na última semana, a escolha 
não pode ser feita com o segundo cri¬ 
tério. Com o terceiro critério, o esco¬ 
lhido será John, pois colocando-se o 
primeiro elemento da seqüência inicial 
na posição do último por sete vezes, o 
primeiro elemento da seqüência passa 
a ser o número um (1). 

Se com este terceiro critério não 
for obtido um só nome, o quarto crité¬ 
rio decidirá o escolhido. 

Quarto critério 

A cada um dos selecionados pelo 
primeiro critério será atribuído um nú¬ 
mero correspondente à freqüência 
com que eles me visitavam. Por exem¬ 
plo, a Steve será atribuído o número 2 
pois ele me visita a cada dois dias. Os 
números serão, então, colocados nu¬ 
ma seqüência crescente da esquerda 
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para a direita. Essa seqüência será alte¬ 
rada da mesma forma que a seqüên¬ 
cia do terceiro critério, porém, por um 
número de vezes igual à soma dos seus 
elementos. Terminadas as alterações 
da seqüência, aquele que visitar-me de 
tantos em tantos dias quanto for o va¬ 
lor do primeiro elemento (à esquerda) 
na seqüência será o escolhido. 

Como exemplo, suponhamos que 
a seqüência inicial seja 2 4 6. Após as 
alterações ela continuará 2 4 6 e, por¬ 
tanto, o escolhido será Steve". 

Aí, Harold interrompeu a leitura 
do testamento e pôs-se a comentá-lo: 

— "assim, terminava a velha Sra. 
Hogweed a parte do testamento que 
deveria definir seu sucessor no contro¬ 
le de sua fortuna. Vocês notaram que o 
processo de seleção do sucessor não é 
nada simples e, longe disso, é um tan¬ 
to trabalhoso. Certamente quem co¬ 
nheceu a Sra. Hogweed não há de es¬ 
tranhar o testamento, pois ela sempre 
foi muito excêntrica e imprevisível. 

A Sra. Hogweed veio a falacer no 
dia 29 de março deste ano em condi¬ 
ções muito estranhas. Infelizmente não 
foi possível proceder-se a autópsia de 
seu corpo, pois sua saúde era precária 
e sua morte era, há muito, esperada. 
Quando a Sra. Hogweed escreveu seu 


testamento, o fez porque o médico da 
família a avisara que ela teria apenas al¬ 
guns meses mais de vida. Ela já sobre¬ 
vivera por muito tempo. Apesar disso, 
eu tenho bons motivos para crer que 
ela foi envenenada. 

Seu corpo foi encontrado debru¬ 
çado sobre a escrivaninha e havia uma 
caneta em sua mão. Sobre a escriva¬ 
ninha havia um papel onde estava es¬ 
crita uma frase completa e outra mal 
começada. A frase completa era "creio 
que meu tempo foi encurtado". A ou¬ 
tra frase começava com a palavra 
"Fui" e na frente dela haviam apenas 
duas letras iniciais de outra palavra. 
Ocorre que as duas letras são as mes¬ 
mas duas primeiras letras da palavra 
"envenenada". Eu, particularmente, 
creio que se a segunda frase fosse 
completada seria: fui envenenada ." 

Todos ouvíamos calados. 

Tolen foi o primeiro entre os ou¬ 
vintes a falar. 

— "Há alguma outra evidência de 
que seu palpite seja correto? Muitos ou¬ 
tros palpites poderiam ser pensados!" 

Harold, de fato, tinha seus moti¬ 
vos e apresentou-os a nós: 

— "A principal evidência que eu 
tenho são resíduos de listagens im¬ 
pressas de programas de um micro¬ 


computador muito popular. Eu as en¬ 
contrei na lareira da casa da Sra. Hog¬ 
weed. Apesar de carbonizadas, pude 
observar que o programa divide-se em 
quatro partes. Creio que ele foi utili¬ 
zado para prever o dia em que a Sra. 
Hogweed deveria morrer!" 

Eu e Ramarujan olhamos as lista¬ 
gens queimadas. Eram de uma impres¬ 
sora para oTK. 

Toda a história narrada no texto 
acima provém das páginas do diário de 
Nabor Rosenthal. O quebra-cabeça 
deste mês é conseguir um programa 
que encontre qual seria o escolhido 
através dos quatro critérios do testa¬ 
mento em qualquer dia e, com ele, ob¬ 
ter o nome do escolhido. 




INFORMÁTICA 


VOCÊ QUER APRENDER CORRETAMENTE 
A PROGRAMAR EM BASIC? 


Conheça os cursos da KLAXON 


— BASIC p/ iniciantes e iniciados 

— Cursos intensivos 

• máximo de 2 alunos por micro e 
10 por turma 

• turmas limitadas 


853-4077 


Rua Auriflama, 57 (Alt. do n? 2380 da Av. Rebouças) 


NÃO DEIXE SEU COMPUTADOR EM BRANCO 
CONSULTE A 

SÃO PAULO Av.Brig. Faria Lima, 1794 cj.4E 
Tel. (011) 210 8289 

O SOFTSCIENCE CURITIBA = Travessa Pinheiro,43 

Tel. (041)223 9292 

y o 

• software • desenvolvimento • equipamento 




















RESPOSTA DO QUEBRA-CABEÇA 
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L.G.M. ou Mensagem de Vega?' 


II Parte 


Renato da Silva Oliveira 

Na quinta edição da Microhobby, 
propusemos aos leitores a resolução de 
um quebra-cabeça que consistia em ve¬ 
rificar se uma seqüência de "zeros e 
uns" tinha ou não alguma significação 
e, em caso afirmativo, interpretá-la. 

Na sétima edição, publicamos a so¬ 
lução da primeira parte desse problema, 
ou seja, um programa com o qual podia 
ser verificada uma certa ordenação dos 
"zeros e uns", numa matriz de 31 linhas 
e 31 colunas (fig. 1). A segunda parte, 
entretanto, até esta edição, encontra¬ 
va-se por ser solucionada. 



Figura 1 


0 grande responsável pela solução 
não é outro senão o responsável pelo 
problema: Nabor Rosenthal. 

Segundo fomos informados, a 
mensagem captada por Nabor lhe foi en¬ 
viada de seu próprio sítio em São Tomé. 
Ele nos disse que um amigo seu, chama¬ 
do Tschebo Kubisbo, é meio maluco e 
pensa que veio de outro mundo. Foi ele 
quem enviou a mensagem ao Nabor pa¬ 
ra confundí-lo e levá-lo, ao menos, a se 
interessar por pesquisa exológica. 

Analisando a figura 1, Nabor a divi¬ 
diu em quatorze regiões. Numa primeira 
abordagem, ele identificou as regiões 5, 
7 e 14 e logo percebeu tratar-se de mais 
uma de seu amigo com manias de 
"E.T.". No campo 5, estão as iniciais de 
Tschebo Kubisbo. No campo 7, há uma 
figura de um rádio-telescópio, e no cam¬ 
po 14, a forma esquemática do "ser ex¬ 
tra-terrestre " que enviou a mensagem. 

Com pouco esforço, Nabor chegou 
à conclusão de que a região 1 represen¬ 
ta um sistema planetário com oito plane¬ 
tas e uma estrela central. Os dois plane¬ 
tas situados na segunda posição, por 
ordem de distância à estrela, formam 
um subsistema binário e o planeta de 
origem do "ser E. T ." ocupa a quarta po¬ 
sição, sendo indicado em toda a figura 
pelo seccionamento das linhas laterais 
da matriz. 

Os outros campos demoraram um 
pouco mais para serem interpretados, 
pois dependiam do significado do 
campo 6. 

No campo 6 estão os números de 
um a sete, ordenando as posições dos 
planetas. Admitindo que os demais qua¬ 
dros representem números binários, Na¬ 
bor identificou os campos 2, 3, 4 e 8. 

No campo 2 estão os cinco primei¬ 


ros dígitos do número pi (7r), ou seja: 
31415; no campo 3 estão os cinco pri¬ 
meiros dígitos do número de Euler (e): 
27182; no campo 4 os números repre¬ 
sentam os três catetos de um triângulo 
retângulo pitagórico: 3, 4 e 5; e final¬ 
mente, no campo 8 estão os números 9 
e 83, que correspondem ao mês e ano 
em que os pulsos foram recebidos. 

Os demais campos (9, 10, 11, 12 e 
13) demoraram mais para serem inter¬ 
pretados, pois representam uma reação 
de fotossíntese. No campo 9 temos os 
números 6 (número atômico do carbo¬ 
no), 8 (número atômico do oxigênio) e 
8, correspondentes a C0 2 . No campo 10 
temos 1 (número atômico do hidrogê¬ 
nio), 1 e 8, correspondendo a H 2 0. No 
campo 11 contém apenas um sinal de 
equivalência: No campo 12 temos 

8 e 8, representando 0^, e no campo 13 
temos 6,1, 1 e 8, ou seja, CH 2 0. A figu¬ 
ra 2 mostra um resumo de interpretação 
da mensagem. 
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Conhecendo um pouco 
mais sobre o TK 


Aroldo Possue/o de Carvalho 


A linha TK 82, 83 e 85 utiliza o mi¬ 
croprocessador Z80 da Zilog. Este é o 
coração do seu TK, pois, é ele quem efe¬ 
tua todo o controle do sistema. É tam¬ 
bém chamado de UCP (Unidade Central 
de Processamento). Ele é responsável 
em atualizar o Display, verificar o tecla¬ 
do, interpretar o BASIC contido na me¬ 
mória ROM e efetuar as operações de 
entrada e saída, como LOAD e SAVE. 

Além dos conectores para grava¬ 
dor, canal de T.V. e alimentação de 9 
voltas, o TK tem em sua parte posterior 
o conector de expansão de memória. 

Através do Manual é possível iden¬ 
tificar todos os nomes dos pinos que são 
funções e pinagens do Z80, como ve¬ 
mos na figura 1. 
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Figura 1 


Para usar o conector de expansão, 
necessitamos de um conector fêmea de 
23 pinos, que é facilmente encontrado 
no comércio eletrônico. Depois de iden¬ 
tificarmos os pinos através do manual 
do TK usaremos somente os pinos de 
endereço de AO, Al, A 2 e A7 e os dados 
de AO a A7; lORQ, RD e WR volts e + 5 
volts, sendo os dois últimos para a ali¬ 
mentação do nosso circuito. 

Para controlarmos circuitos exter¬ 
nos UCP Z80 é necessário usar as ins¬ 
truções de entrada (IN) e saída (OUT). 

Quando a UCP encontra, por exem¬ 
plo, uma instrução OUT N,A, onde "n" 
é um número inteiro entre 0 e 255 em de¬ 
cimal (00 e 77 em Hexadecimal), "A" é 
o acumulador e OUT é a instrução que 
diz que um número contido no acumula¬ 
dor vai sair. A linha ÍÜRÜ (INTERRUPT 
REQUEST), vai a nível 0 (zero), indican¬ 
do que vai haver uma inst ruçã o de saí¬ 
da ou de entrada; a linha WR(WRITE) 
vai a nível 0, indicando que a operação 


vai ser escrita, ou seja, de saída. Todo o 
conteúdo do acumulador é colocado no 
barramento de dados e, por fim, vai a 
circuito de s* ida. Mas, antes de chegar¬ 
mos ao circuito de saída, é preciso ter¬ 
mos uma noção sobre decodificadores e 
latches. 

Quando queremos expandir a capa¬ 
cidade da memória, ou acessarmos a um 
dispositivo periférico, precisamos indicar 
ao Z80 qual o endereço em que se en¬ 
contra tal dispositivo. 

Os circuitos decodificadores, como 
o próprio nome diz, recebem vários en¬ 
dereços e, quando detectam o endereço 
por nós selecionado, ativam o periférico. 

Observando a figura 2, temos o Cl 
74LS138 que é um decodificador 3x8, 3 
entradas binárias para selecionarmos 8 
dispositivos. 
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Quando, nas entradas ABC, tiver¬ 
mos qualquer das 8 combinações, en¬ 
tão o decodificador irá selecionar uma 
das 8 saídas, como mostra a tabela I. 

Latches 

Os latches são circuitos que nos 
mostram, em suas saídas, sinais que são 
imperceptíveis ao ser humano, ou seja, 
são muito rápidos, da ordem de mono- 
segundos. Isto porque o TK trabalha 
com um "clock" de 3,5 MZH. 

Desta forma os latches travam em 
suas saídas estes sinais o tempo sufi¬ 
ciente para serem percebidos. 


Na figura 3 temos exemplo de um 
latche constituído de dois "flip-flop" 
com o Cl 74LS74. 
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Figura 3 Ao decodificador 

Até o próximo mês ... 
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ELETRÔNICA E JOGOS 
COM. E EXP LTDA 

TEL. (Oll) 268 4 3 70 - S PAULO 


SOFTWARE P/TK85, CP200 E R 470 (I6K ) 

EUROPA 2 001 

FASCINANTE SIMULAÇAO ECONÔMICA 


UM JOOO CRIADO P/ 0 ESTUDO E APLICAÇÃO DE ESTRATÉGIAS 
DE DESENVOLVIMENTO EM UM AMBIENTE DE COMPETIÇÃO 
COOPERAÇÃO E NEGOCIAÇÕES QUE POOEM FAZER SUA 
FURTUNA OU ARRUINA'-LO I 

vocl TERA QUATRO DÉCADAS PARA TENTAR SAIR DO 
LIMBO E TORNAR-SE UM LI DER EUROPEU, ADMIRADO 
POR SUA SAPIÊNCIA ECONÔMICA E POR SUAS 
HABILIDADES DE NEGOCIADOR ( BEM OUE O BRASIL 
ESTA' PRECISANDO DE PELO MENOS UM \ ). 

EXCELENTE MEIO PARA TESTAR SUAS IDÉIAS 
DE NEGÓCIOS 

EXCELENTES GRÁFICOS 


TAMBÉM 


ANÁLISE DE INVESTIMENTOS E FINANCIAMENTOS- 16 K 

MÉTOOO DA TAXA DE RETORNO, MÉTODO BENEFICKVtUSTO 
MÉTODO DO VALOR PRESENTE E ANÁLISE DE FINANCIAMENTOS 
DIAGODAMAS - 16 K 

SIMULAÇÃO DE JOGO DE TABULEIRO 
JOGADO DIAGONALMENTE 


• CERTAS PALAVRAS- 16 K 


• BRASIL 2001- 16 K 


FORÇAS EXTERNAS 


CONDI ÇOES PARA 
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R EVENDA 
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O Sistema Operacional CP/M 


Vivian Bernardo 


Um padrão só se torna padrão se possui 
determinadas características bem definidas. 

0 que tornou o sistema operacional CP/M um 
padrão para micro-computadores baseados em 
8080 ou Z80? É o que veremos neste artigo 


Vamos, primeiramente, entender o 
que é um sistema operacional e sua fun¬ 
ção dentro do processamento de dados, 
antes de descrevermos como o CP/M 
funciona. Sistema Operacional é um 
conjunto de programas gerenciadores 
das atividades da CPU (controle de pro¬ 
cessos) e das funções básicas da máqui¬ 
na (interpretação dos caracteres do te¬ 
clado, interpretação de macro instru¬ 
ções, conexões lógico-físicas, etc.) e 
das atividades de controle de periféri¬ 
cos, dispositivos de entrada e saída e 
unidades magnéticas de armazenamen¬ 
to. Assim sendo, o CP/M, como um sis¬ 
tema operacional, tem que exercer to¬ 
das essas funções. 

Descrevendo CP/M 

Todo sistema operacional de um 
microcomputador inclui um micropro¬ 
cessador, terminal (teclado e monitor), 
par de drivers de disquetes e uma im¬ 
pressora. 0 CP/M opera com, no míni¬ 
mo, 48 k de memória principal, um par 
de drivers e pode ser usado em qualquer 
microcomputador com um microproces¬ 
sador 8000 da INTEL, ou Z80(CP/M-80), 
ou 8086 e 8088 (CP/M-86). 

O CP/M (e outros sistemas opera¬ 
cionais) ignoram as unidades físicas que 
compõem o sistema, trabalhando com 
as unidades lógicas. Ele supõe que exis¬ 
ta um dispositivo de impressora e um 
dispositivo de leitura e assim não se 
preocupa em endereçar cada periférico, 
executando todas as operações de 1/0 
(INPUT/OUTPUT) de dados entre o 
processador e os periféricos. A estrutura 
da unidade de armazenamento do CP/M 
é o disquete (sistema "floppy-disks"). 
Ele é dividido em trilhas e estas em seto¬ 
res, com 128 bytes de informação por 
setor. 

Tipos de CP/M 

O primeiro deles é o CP/M-80, pro¬ 
jetado para sistemas com "floppy-discs" 
e que necessita de algumas alterações 
para trabalhar com discos rígidos (ou fi¬ 
xos). O outro é o CP/M-86 para proces¬ 


sador 8086 de 16 bits, que opera com 
discos e seus softwares são adaptados 
para compatibilizar-se com a versão 
CP/M-80. Cada um desses tipos pode 
acrescentar programas utilitários de sis¬ 
tema operacional, ou rotinas de refina¬ 
mento das atividades do CP/M, para um 
melhor desempenho da máquina de 
acordo com as necessidades do usuário. 

Como funciona o CP/M 

O disquete de CP/M é carregado na 
memória com um programa armazenado 
nele próprio chamado "programa de 
partida a frio". Os micros modernos 
acessam CP/M assim que são ligados 
(contando que o disquete do sistema 
operacional esteja no 'drive'). Nos de¬ 
mais micros, porém, é necessário colo¬ 
car o disquete, ligar o aparelho , acio¬ 
nar a tecla RETURN e aguardar a apre¬ 
sentação do CP/M. O sistema opera¬ 
cional deve ser carregado para que você 
possa utilizar seus comandos e agilizar 
as atividades junto ao micro. A partir 
daí, todo o controle da máquina é feito 
pelp CP/M. Na tela, o sinal de que o 
CP)M pode ser usado é: A>. A ope¬ 
ração com o CP/M depende de rotinas e 
comandos específicos que dão acesso a 
todas as funções desse sistema. 

Estrutura interna do CP/M 

O CP/M carregado na memória es¬ 
tá dividido em várias unidades de con¬ 
trole: 

CCP: Console Command Processor 
BDOS: Basic Disk Operating System 
BIOS: Input Output Basic System 

A interação Hardware/ Software é 
feita pelo BIOS, através de dispositivos 
lógicos associados aos físicos informa¬ 
dos pelo IOBYTE. O CCP interpreta os 
caracteres do teclado e as atividades de 
pesquisa em disco são feitas pelo BDOS 
com dispositivos DMA (Direct Memory 
Access), o que faz a pesquisa direta¬ 
mente na unidade de disco, sem passar 
pela memória, bem como a distribuição 
e a locação do arquivo de acordo com os 
parâmetros fornecidos pelo usuário. 


Rotinas diárias e comandos 
do CP/M 

Todo sistema operacional possui 
rotinas básicas que asseguram sua es¬ 
trutura e controle de atividades. Além de 
rotinas específicas, os comandos, ou 
instruções e macro-comandos, consti¬ 
tuem as ordens que um sistema opera¬ 
cional interpreta e executa de acordo 
com a formatação da instrução forne¬ 
cida. 

O comando contido executa 
imediatamente sua função, sem consul¬ 
tar o disquete, baseado em um progra¬ 
ma contido, ou seja, programas que per¬ 
manecem presentes na memória com o 
CP/M. No Comando Transiente, conti¬ 
do em um programa residente em dis¬ 
quete, a instrução é executada com con¬ 
sulta ao disquete (o programa deve ser 
transferido para a memória). Os coman¬ 
dos para operarmos com CP/M são ba¬ 
sicamente os seguintes: 

— comandos de operação: DIR, TYPE, 
ERA, REN, SAVE, USER, D: 

— macro-comandos: PIP, DUMP, 
SUBMIT. 

— comandos de adição. 

Existem outros comandos no CP/M 
que são igualmente importantes, mas 
não serão abordados neste artigo. Ex¬ 
plicações e exemplos dos comandos aci¬ 
ma apresentados estão no quadro "CO¬ 
MANDOS DO CP/M". 


Utilitários do CP/M 

Além de conhecer o sistema CP/M 
e seus comandos, você deve saber da 
existência dos vários utilitários que au¬ 
xiliam na confecção de programas. O 
programa ED possui òs comandos para 
edição de textos no CP/M. Consiste em 
rotinas para transferir os caracteres do 
teclado para o disco, permitindo ao 
usuário corrigir, eliminar ou acrescentar 
informações no texto digitado. Os co¬ 
mandos do ED operam com uma linha 
ou um caractere de cada vez. Para evitar 
um arquivo, digite A > ED nome-do-ar- 
quivo, tipo <cr>, então o editor de tex- 
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to será carregado na memória em uma 
área chamada "buffer de edição'", per¬ 
mitindo que você modifique o texto do 
arquivo pedido. Outros utilitários bas¬ 
tante usados: 

FORMAT: para formatação de disque¬ 
tes; COPY: para transferências de infor¬ 
mações de um disquete para outro; 
MOVCPM: para ajuste do tamanho da 
memória no CP/M; SYSGEN: para ge¬ 
ração do sistema operacional CP/M-80, 
muito utilizado, já que a maioria dos pro¬ 
gramas aplicativos não vem com o CP/ 
M-80 nas trilhas do sistema; SUPER- 
SORT: para classificação externa (não é 
necessário SORT interno, dentro do 
programa). 

Um dos utilitários mais importan¬ 
tes, pela sua grande utilidade, é o PRO¬ 
CESSADOR DE PALAVRAS, que reú¬ 
ne rotinas de edição, desde criação de 
programas até a geração de arquivos. O 
MAGIC WAND é outro utilitário de edi¬ 
ção que diferencia-se dos outros por 
operar com processamento de palavras 
em módulos: módulo EDIT, para altera¬ 
ções na tela e módulo PRINT, para im¬ 
pressão de documentos. Um outro utili¬ 
tário é o ELETRIC PENCIL que necessita 
de um vídeo mapeado na memória do 
computador. 0 WORDSTAR é o pro¬ 
cessador de texto que oferece maior 
vantagem porque pode-se ver na tela a 
forma exata da impressão. 0 BENCHM- 
MARK é um utilitário que possui uma 
série de rotinas que avaliam o desempe¬ 
nho do sistema, ou seja, seu tempo de 
processamento, seu tempo de acesso às 
unidades periféricas, etc. Há um grande 
número de utilitários para o sistema 
CP/M e muitos deles podem ser carre¬ 
gados em sistemas similares ou adapta¬ 
ções ao CP/M. 

No quadro "MICROS COMPATÍ¬ 
VEIS COM O CP/M", você tem a com¬ 
paração do desempenho do CP/M em 
relação aos outros sistemas operacio¬ 
nais de microcomputadores, suas van¬ 
tagens e desvantagens. 

Derivações do CP/M 

A criação de um sistema operacio¬ 
nal tem como objetivo aprimorar a rela¬ 
ção Homem X Máquina, permitindo que 
o homem utilize toda sua criatividade e 
as facilidades que o computador ofere¬ 
ce. Junto a esta filosofia, desenvolve¬ 
ram-se vários sistemas operacionais 
que, além de serem cada vez mais com¬ 
pletos, preocupam-se também com um 
melhor aproveitamento do tempo ocio¬ 
so da máquina. Surgiram então os con¬ 
ceitos de multiprogramação (execução 
de vários programas de diversos compu¬ 
tadores). Daí o aparecimento de siste¬ 
mas derivados do CP/M. O principal de¬ 
rivado do CP/M é o MP/M que, ao con¬ 
trário do CP/M com monoprogramação 
e monousuário, opera com multi-pro- 
gramação e gerenciamento de sistemas. 
Vejamos suas principais características: 

MP/M (Multi-Processing Monitor 
Control Program): vários usuários po¬ 
dem, através de terminais conectados e 
uma mesma CPU, executar vários pro¬ 
gramas "simultaneamente". Os coman¬ 
dos são semelhantes ao do CP/M, sen¬ 


do o principal o comando USER, que 
determina a área de memória em disco 
de cada usuário. 

Na realidade, o sistema MP/M não 
tem a mesma dinâmica de funcionamen¬ 
to do CP/M. É muito lento e só pode ser 
viável para no máximo dois terminais. 

Os sistemas derivados do CP/M 

são: 

CP/NET: um sistema onde vários 
usuários dispõem de vários sistemas de 


computadores. Sua diferença do MP/M 
é que este trabalha com um único sis¬ 
tema. O CP/NET opera com um siste¬ 
ma para cada usuário. 

0 outro sistema é o CDOS (Cro- 
menco Disk Operating System) e 
outros. 

A seguir, apresentamos um glossá¬ 
rio com os termos técnicos usados neste 
artigo, para que você fique familiariza¬ 
do com a terminologia usada. 


-- 

Glossário 

Bootstrap: rotina de inicializa¬ 
ção do sistema que, ligada ao micro, 
possibilita a execução de uma série 
de procedimentos; o Bootstrap é gra¬ 
vado na ROM. 

Buffer: é uma área de memória 
que armazena, temporariamente, in¬ 
formações de entrada ou saída para 
permitir que o processador central 
trabalhe mais rapidamente deixando 
o buffer com as operações de 1/0. 

Byte: é uma unidade de memó¬ 
ria capaz de armazenar um caractere 
na forma binária; é composto de 8 
bits (menor unidade de memória). 

Estado de processo: estado no 
qual um programa ou procedimento 
encontra-se em execução, ou seja, 
em processamento na U.C.P.. 

Floop Discs: meio de armaze¬ 
namento com a parte central removí¬ 
vel, usado pelo drive de disco, que é 
a parte mecânica. 

Formatação: forma de disposi¬ 
ção de dados em um meio físico de 
armazenamento. 

Microprocessador: situado no 
interior da unidade central, compos¬ 
to de circuito integrado, com memó¬ 
ria residente (RAM) e memória 
Transiente (ROM); é responsável pe¬ 
lo controle do funcionamento do sis¬ 
tema. 

MODEM: Modulador/Demodu- 
lador, converte dados ou informa¬ 
ções do computador em freqüências 
e as codifica. Uma linha telefônica 
carrega o sinal modulado. 

Programa Contido: também 
chamado programa residente, é 
aquele que é carregado na memória 
com o sistema operacional. 

Programa Transiente: é aque¬ 
le elaborado pelo programador e de¬ 
ve ser armazenado em um meio físi¬ 
co (disco, fita). 

Programa Objeto: é o progra¬ 
ma após a compilação. 

Programa Utilitário: programa 
que auxilia o desempenho do siste¬ 
ma operacional. 

Programa Aplicativo: geral¬ 
mente desenvolvido em linguagem 
de alto nível e específico para uma 
necessidade do usuário. 

Sistema Operacional: denomi¬ 
nado de forma geral, programa moni¬ 
tor para os microcomputadores; é 
um conjunto de programas que coor¬ 
denam a atuação, ou seja, o estado 
de processo da U.C.P.; entre outras 


funções o S.O. faz o encadeamento 
de tarefas, conecção de diversos pe¬ 
riféricos, etc. 

Software: conjunto de progra¬ 
mas que são utilizados pelo compu¬ 
tador, ou de uma forma mais restri¬ 
ta, conjunto de programas e rotinas 
de auxílio de programação, geral¬ 
mente fornecido pelo fabricante, que 
garantem ao usuário operar de for¬ 
ma eficiente o equipamento. 

U.C.P.: Unidade Central de pro¬ 
cessamento, onde todas as informa¬ 
ções são processadas. 

"Os comandos do CP/M " 

RESET: interrompe o processa¬ 
mento em caso de loop infinito , 
CRASH, ou outro problema do pro¬ 
grama. Essa tecla pode ocasionar a 
perda de um processo e dos dados 
que estavam na memória no momen¬ 
to em que a rotina foi acionada. 

BACK-UP: rotina de cópia de ar¬ 
quivo. É aconselhável sempre man¬ 
ter um disquete original do arquivo 
ou programa e no mínimo um Back¬ 
up, já que os disquetes são unidades 
de armazenamento de durabilidade 
temporária. 

Comandos 

DIR: mostra o diretório, ou seja, 
os arquivos disponíveis na memória 
auxiliar. Ex.: A > DIR B: <cr > (lis¬ 
ta o conteúdo do drive B). 

TYPE: identifica o tipo do arqui¬ 
vo a ser usado. Pode ter no máximo 3 
caracteres e deve ser separado do 
nome do arquivo por um ponto. 0 
comando de identificação do drive é 
colocado em seguida do Type. Ex.: 
A > TYPE A: ROT.AAA < cr > (ar¬ 
quivo do drive a, do tipo AAA, de no¬ 
me ROT). Os tipos de arquivos mais 
usados em CP/M são: 

ASC: (arquivo que contém texto 
em ASCII); BAK (arquivo de Back¬ 
up); BAS (arquivo fonte em BASIC); 
LIB (arquivo de biblioteca); SUB (ar- 
I quivo dos comandos do programa 
SUBMIT); REL (arquivo de progra¬ 
ma relocável em linguagem de má¬ 
quina-objeto). 

ERA: limpa o conteúdo do ar¬ 
quivo especificado. Ex.: A ERA b: 
CLASS: ASC < cr >(limpa o arqui¬ 
vo CLASS .do drive b do tipo ASC). 

REN: para renomear um arqui¬ 
vo. Ex.: A > REN TER.BAS = 
MEG.BAS < cr > (o arquivo SEG. 
BAS passa a ter o nome de TER. 
BAS). 
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MICROS-COMPUTADORES COMPATÍVEIS COM CP/M 


MICRO 

BR-1000 

CP/300 


EMPRESA SISTEMA OPERACIONAL PADRÃO 


É COMPATÍVEL VANTAGENS/DESVANTAGENS 
COM CP/M? DO USO DO CP/M 


BRASCOM 

(nacional) 

"Unix like" — sistema de microcompu¬ 
tadores para multiusuário, que permite 
associar vários terminais à uma mesma 
unidade central (microprocessador). 

Sim; com a versão 
CP/M 2.2. 

Os compiladores CP/M são executa¬ 
dos no BR-1000 sob forma de emula¬ 
ção. A desvantagem desse processo 
é ser muito lento e só ser viável com 
um processador Z80B de 6 megahertz. 

PROLÓGICA 

(nacional) 

"TRSDOS" — o sistema operacional do 
TRS/80 modelo III da Rádio Shack (ver 
TRS/80) 

Não. 



CP/500 

PROLÓGICA 

(nacional) 

DOS-500 — baseado no sistema opera¬ 
cional do TRS/80, mod. III; pode operar 
com o sistema NEWDOS. 

Sim; com a versão 
CP/M 2.2. 

Para operar com CP/M é necessário 
modificar o hardware, incluindo um 
controlador 6845 da Motorola (sistema 
PSI-M), permitindo que o sistema faça 
interação com o DOS padrão. 

Júnior 

ITAUTEC 

(nacional) 

SIM/M — Sistema Itautec para micro¬ 
computadores. 

Sim. 

É necessário ter 64 K de memória 
RAM. 

1-7000 

ITAUTEC 

(nacional) 

SIM/M — Sistema ITAUTEC para micro¬ 
computadores; RAM de 128 kBytes; co¬ 
mandos intrínsecos idênticos ao CP/M; 
pode utilizar diversas linguagens; as men¬ 
sagens de erro são em português, com 
acentuação nas palavras. 

Sim; com a versão 
CP/M 2.2. 

Oferece poucas vantagens em relação 
ao sistema padrão; uma delas é usar 
softwares aplicativos internacionais. 

LABO-8221 

LABO 

S.O.L.8221: para multiusuário (até 4 con¬ 
correntes pelo uso da U.C.P. do micro); 
utiliza muItiprogra mação; as mensagens 
de erro são equivalentes às do CP/M; 
possui os utilitários de catálogo e de me¬ 
nu além dos utilitários do CP/M. 

Sim. 

É necessário emulação de memória 
em partições de 64 kBytes; com o 
CP/M o micro torna-se autônomo, 
monoprogramável, compartilhando 
apenas recursos de periféricos; o 
acesso aos registros é via "chave"; 
tem spooíing automático e sistema 
monitor residente. 


COBRA-210 COBRA SOM e MUMPS. 

(nacional) 


Sim; com a versão Dispõe de SPP, um processador de 
SP/M texto desenvolvido no Brasil. 


Micro-Engenho 

SPECTRUM 

(nacional) 

DOS 3.3 (o sistema operacional do APPLE 

II) 

Não. 


Micro- 
Engenho II 

SPECTRUM 

(nacional) 

S.O.D., compatível com APPLE DOS; 
gerencia até 10 unidades de disquete de 

5 e 1/4 polegadas e disco Winchester de 

5 megabytes. 

Sim; com o 
CP/M-80 

É necessário o cartão Z80/CP/M para 
o sistema CP/M. 0 uso do CP/M não 
é vantajoso porque o sistema padrão 
é muito poderoso. 

PC-2001 

MICROTEC 

(nacional) 

DOS (processador do PC-2001 tem 16 
16 bits). 

Sim; com o 
CP/M-86 

(Ver micro IBM-PC) 

TRS-80 

RÁDIO SHACK 
(nacional) 

"TRSDOS" possui: programa executivo 
(gerenciamento de periféricos); rotinas 
auxiliares de comando; biblioteca de co¬ 
mandos; extensão ao BASIC; utilitários: 
COPY, FORMAT, BACK-UP. 

Outras versões compatíveis: DOSPLUS 
3.4, DBLDOS, LDOS 5.1, MULTIDOS, 
NEWDOS. 

Não. 





V. 


APPLE 


IBM-PC 


MICROCRAFT DOS, com derivações: PRODOS e DOS 
3.3; opera com disco de 5 e 1 /4 polegadas 
e tela de 40 colunas. 


Sim; com a versão Para operar com CP/M é necessário 
CP/M 2.2. o software "SOFTCARD" em disco 

de 5 e 1/4 polegadas contendo o CP/ 
M 2.2 e os aplicativos: 

— APDOS — que transfere arquivos 
do DOS para o CP/M. 

— CP/M 56 ou CP/M 60 — configura 
CP/M 56 kBytes ou CP/M 60 kBytes. 
— PIP — transferência geral de ar¬ 
quivos. 

Uma das vantagens de operar-se com 
CP/M é que pode-se ter 80 colunas 
na tela e disquete de 8''. 


IBM MS-DOS; possui os comandos semelhan¬ 

tes ao CP/M-80; maior velocidade nas 
operações de l/O (aloca espaço em disco 
por setores); mensagens de erro detalha¬ 
das, facilitando o usuário; gerenciamento 
por "System Call"; utiliza disco flexível; 
alguns de seus arquivos necessitam de 
conversão para o CP/M-80; não tem re¬ 
cursos de alta resolução gráfica. 


Sim; versão O CP/M-86 no PC: 

CP/M86(16bits) — armazenamento lento (através de 
tabelas, aloca-se o espaço em disco); 
é difícil a correção de erros (mensa¬ 
gens sintéticas); gerenciamento "Sys¬ 
tem Call" (para processamento em 
BATCH, que chama rotinas em as- 
sembler ); opera com disco flexível; 
arquivos 100% compatíveis com CP/ 
M 80; comandos semelhantes ao CP/ 
M 80; possui recursos de alta resolu¬ 
ção gráfica. 
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SAVE: salva o conteúdo da me¬ 
mória em disco no CP/M. Ex.: A > 
SAVE * d: ARQ1.LIB < cr > (sal¬ 
va o arquivo ARQ1 em disco). Este 
comando necessita de outras infor¬ 
mações como: quantos blocos de 
memória serão usados. 

USER: usado para especificação 
do número do usuário (entre 0 e 15). 

d: usado para informar troca de 
drive. 


V 


Comandos de edição 

CONTROL-E: para continuar a 
digitação na próxima linha. 

BACK-SPACE: (ou CONTROL¬ 
EI): para retirar o último caractere di¬ 
gitado; usado seguidas vezes, apaga 
os caracteres da direita para a es¬ 
querda, um a um. 

DELETE ou RUBOUT: cancela 
o caractere não desejado; para efei¬ 
to de controle o caractere eliminado é 
impresso na tela. 

CONTROL-S: permite a pausa 
no display; outro comando recomeça 
a impressão na tela. 

CONTROL-X: cancela comando 
e fornece nova "line-feed" para que 
o comando seja redigitado. 

CONTROL-P: para ativar a im¬ 
pressora (funciona como liga-desli- 
ga). 

O CP/M, quando não consegue 
executar algum comando emite men¬ 
sagens de erro, para que o operador 
redigite-o da forma correta. Princi¬ 


pais mensagens de erro: BDOS ERR 
ON d: quando é acessado um drive 
que não existe. 

NO FILE ou NOT FOUND ou 
FILE NOT FOUND: quando o arqui¬ 
vo solicitado pelo operador não for 
encontrado. 

NOMEARQ?: quando você digi¬ 
tou o nome do arquivo incorreta¬ 
mente. 

FILE EXISTS: quando um novo 
arquivo criado ou renomeado tem um 
homônimo. 

DISK FULL: quando não há 
mais espaço no disco para salvar to¬ 
das as informações especificadas 
(deve-se limpar os arquivos desne¬ 
cessários ou inserir outro disquete). 

Como surgiu o CP/M 

O sistema operacional CP/M foi 
criado em 1973 por Gary Kildall, con¬ 
sultor de software de INTEL. Foi de¬ 
senvolvido, inicialmente, para testar 
disquetes (teste de vida útil). Em se¬ 
guida, surgiu a versão para discos de 
8 polegadas de SHUGART e daí para 
frente a responsabilidade da continui¬ 
dade do projeto do sistema passou 
para a KINDALL. Na época haviam 
poucas companhias fabricantes de 
micros e estas precisavam desembol¬ 
sar muito dinheiro para pesquisa de 
novos sistemas operacionais. 

0 aparecimento do CP/M com a 
vantagem de poder associar-se a 
qualquer micro com processador j 


central 8080 ou Z80, fez com que as ^ 

companhias fabricantes, principal¬ 
mente as menores, adotassem o CP/ 

M como sistema operacional padrão 
de seus equipamentos. O grande nú¬ 
mero de usuários de micros, tornou 
importante os softwares de apoio e o 
investimento no CP/M foi automáti¬ 
co, já que ele fornecia enormes van¬ 
tagens e precisava de poucas modi¬ 
ficações de hardware. O CP/M mar¬ 
cou uma nova fase na indústria dos 
micros: o que antes ocorria era fa¬ 
zer softwares compatíveis com o 
hardware; inverteu-se essa obriga¬ 
toriedade e os hardwares passaram a 
ser adaptados para funcionar com 
CP/M. Tudo isso conduziu o CP/M 
para a categoria atual de software 
'padrão' de microcomputadores. Um 
grande número de utilitários foram 
desenvolvidos para o sistema, desde 
programas que auxiliam a confecção 
de outros, até programas em lingua¬ 
gem de alto nível, implementadas no 
CP/M. j 
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Sim, desejo assinar a revista MICROHOBBY (12 edições) 

"nõmê 


END. 


EST. 


CEP 


CIDADE 


TEL. 


CIC 


Qual a marca do seu micro? 


Para tanto, anexo a importância de Cr$ 22.000,00. 

□ cheque nominal à MICROMEGA P.M.D. Ltda. 

Banco_□ Vale Postal 


Data: 


Assinatura 


MICROHOBBY. A REVISTA QUE PÕE VOCÊ EM DIA COMA INFORMÁTICA 


MICROMEGA P.M.D. Ltda. 

Cxa. Postal 54096 - CEP01296 
São Paulo — SP 
CGC 52.275.724/0001-41 
INSCR. EST. 110.862.362 


Receba em sua casa a revista que contém programas, 
informações, dicas e tudo que você quiser saber sobre 
microcomputadores e programação. 

Além disso, a MICROHOBBYé uma revista altamente 
didática, destinada a programadores em vários níveis, 
desde o principiante até o hobbysta mais ousado, que se 
aventure a programar em linguagem de máquina .' 
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Resolvendo problemas de física 


José Roberto Fernandes 



Para quem possui um computador TK 85 ou 
compatível, este programa será um precioso 
auxiliar no estudo de física, quer para aluno, 
quer para professores. 


Resolver problemas de física não é uma tarefa muito 
gratificante para a maioria das pessoas. 

0 programa que ora apresento resolve alguns tipos 
mais comuns de exercícios de cinemática (movimentos uni¬ 
formes e uniformemente variados). Destina-se, portanto, a in¬ 
divíduos que, pelo menos, tenham conhecimento de que: 
— Física é uma ciência experimental 
— Seus conceitos, princípios e leis devem ser muito 
bem compreendidos. 


— Qualquer exercício, antes de ser tentada sua reso¬ 
lução, deve ser lido várias vezes, até sua perfeita caracte¬ 
rização e entendimento. 

— A 'Tradução" correta dos dados que a linguagem 
matemática sempre conduz à uma passagem rápida para a 
solução. 

Inicialmente mostraremos o programa e o seu uso indi¬ 
cando, passo a passo, o que deve ser feito. Na tabela I descre¬ 
vemos a estrutura do programa. 


2 R E M J 0 S E R 0 5 c R T ü F E H N R N D £ Z / 
1984- 

3 PRINT innrTrr "'' 


4. FRJNT RT 21,3.: 

13 PRINT RT 5:7;"MOUIMENTO UNI 
FORME" ; RT 13.15 ; "Ê" ; RT 15.1 ; "MOU 
IMENTÜ UNIF ü RMEMENTE URRIRDO" 

11 FOR X =1 TO 183 

12 NEXT X 
14. CLS 

15 PRIhlT 

16 PRINT :: > E5TE PROGRRMR- UISR 
R RE80LU0R0 DE PROBLEMRS RELRTIU 
05 ROS MOUI -MENTOS UNIFORMES E 
UNIFQRMEMEN-TE URRIRDOS , INDI8CR 
IMINRDRMENTE. í! 

17 PRINT 

is pRit-rr *• >depois dr Et-rrpRDP d 

E DRDOS DI5-P0NIUEI5 .• 0 PROGRRMR 
CRLCULR DE MODO RÜTOMRTIOO 05 D 
RD05 RESTRN-TES E INTERPRETR 0 T 
IPO DE MOUI-MENTO EM OUESTRO." 

13 PRINT 

23 PRINT " >SRQ PÜEZTQS SOMENTE 
CINCO DRDOS DE EblTPPDP /SRO IGU 
RLMENTE /CRL-CULRDQS CINCO DRDOS 
DE SRIDR . ••• 

21 PRINT “(FUTURR5 IMPLEMENTRO 
0E5 PODEM SER 05TIDRS FRCILMENTE 

) " 

22 PRINT RT 21:3; “ > >DIGITE UMR 
TECLP OURLOUER < < 

23. LET U$=INKEY$ 

24. IF INKEY$ = !! THEN GOTO URL 
"23" 


25 CLS 

26 PRINT 

27 PRINT 


28 PRINT 

29 PRINT 

NTO > PC" : 

-> U I ' ' : 

-->UF" , 
DE — >DU" 


RCELERRCRO DO MOUIME 
UELQCZDPDE IN10IRL 
UELOOIDRDE FINRL 
URRIRORO DE UELOCIDR 


33 PRINT 
-- >SI ,! 
-->SF" 
-->D5 M 
31 PRIhiT 

— >TI M 

— >TF M 

— > DT " 


"POSIORO INICIRL 
,! POSICRO FINRL 
"URRIRORO DE POSICRO 


"INSTRNTE INICIRL 
"INSTRNTE FINRL 
"INTERURLO DE TEMPO 


32 PRINT RT 21:3; "> >>DIGITE UM 
R TECLP OURLOUER <<<" 

34. LET U$ = INKEY $ 

35 IF U$ ="•••' THEN GOTO URL "34" 
35 CLS 
37 PRINT 

35 PRINT " > USRNDO RS P3PEUIPTU 
RR5 DR _ _ 

UOCE DEUE INTRODUZIR _ 

DRDOS DIS-PONIUEIS PRRR CRLCUL 
05. < " 


33 PRINT 


^4-0 PRINT '>UOCE DEUE USfiR SOME 
Ni= HS RBRt-UIRTURflS CONSTANTES 
L>ESSR LISTA •;' 

41 PRINT 

42 PRINT >DIGITE : < ) OOP: TEOLA 

khhh SEGUIR <L > PARA UER 

iFICAR LISTA” 
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unitron 



Ringo 
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' 

RH 

PHILIPS 




CMA 



Z£\ 


•EBS! a 

JflDK 






SOFTWARE 




HARDWARE 




SUPRIMENTOS 




INSTRUMENTAÇÃO 







Matrix 


/flCROOMFT 



COMPONENTES 

ELETRÔNICOS 


Venha conhecer nosso show room e 
participar ativamente das mais recentes 
e revolucionárias tecnologias a respeito 
dos microcomputadores. Além de 
fazer amigos, eventualmente poderão 
descobrir o que um Microcomputador 
poderá fazer por vocês ou pela sua 
Empresa. 

Trata-se de uma perfeita e balanceada 
estrutura para representar à altura, as 
principais Empresas de Computadores 


tais como: Texas, Zirok, Microdigital, 
Dactari, Polymax, Unitron, Elebra, 
Aceco, Prológica, Apple II, Savage, 
Microcraft, CMA, Phillips, Ringo, 
Matrix... 




CERTIFICADO OE REGISTRO NO CADASTRO DE FORNECEDORES 
DE SUPRIMENTOS DE INFORMÁTICA 


Texas 



Intellivision 



RUA SANTA EFIGÊNIA, 568 - SP - FONE: 221-9055 
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4-3 LET U$ =INKEy í 

44 IF U í = " L " THEH GOTO UAL "25 

45 IF US = "" THEN GOTO URL "43" 
45 PRINT 

47 P RIMT '' >O URNDO O CO MPUTA DOR 
PEDIR ENTRADA DE DADOS, UOCt DE 

UE DIGITAR OS DADOS SEGUENCIALME 
NTE E SEM ESPAÇOS ENTRE ELtS •;" 

48 PRINT 

4S PRINT ">TOME MUITO CUIDADO 
NESTA FASE;" 

50 PRINT AT £1,0; "> > >DIGITt UM 
A TECLA QUALQUER<<<" 

51 LET U$ = INKEYí 

52 IF U$="“ THEN GOTO UAL "51" 

53 CLS 

54 PRINT 

55 PRINT ">EXEMPLO DA ENTRADA 
DE DADOS: <" 

56 PRINT 

57 PRINT " > > SE UOCE DISPOR DOS 
DADOS: <<" 

58 PRINT , , "ACELERACAO", , "POSI 
CAO INICIAL" 

59 PRINT "UELOCIDADE INICIAL" 
"TEMPO INICIAL" "UARIACAO D4 TE 
MPO" 

61 PRIMT AT 5,23:"-- > AC" .1 Aj_ 5 , 
23; "-->81";AT 7,23; "-->UI";A ? 8, 

23; " — >TI";AT 9,23 "-->DT" 

82 PRINT 

6 3 P RINT , , “>UO C E D E UE DIGITAR 


64 FOR X = 1 TO 50 STEP 
66 PRINT AT 12,21;" 

;AT 12.21;"ACSIUITIDT 


csiuitid: 


õ7 NEXT X 

63 PRINT : , , , "> CUIDE PPRP Oüiz 
RS UNIDADES EN -UIRDRS SEJRM TÜD 
RS COMPfiTIUEIS.<" 

69 FOR X = 1 TO 100 

70 NEXT X 

30 CLS . . 

91 P RINT 1 *^ 


33 PRINT "ENTRE COM OS DRDOS D 
ISPONIUEIS" 

94 P RI NT :! 


33 CLERR 
100 INPUT PÊ- 

105 IF RÊ = ;::: THEN GOTO 100 

105 PRINT PÊ 

110 LET 9Ê=HÊ-P : 11 

121 PRINT 

140 LET P =LEN PÊ 

150 LET B=P/2 

160 IF NOT B=INT 5 THEN GOTO UR 
1 _" 30 " 


165 

IF 

5 O 5 THEN 

GOTO 

URL "30" 

170 

DIM 

FÊ (5 : 2) 



180 

FOR 

C=1 TO B 



190 

■{ \ 

LET 

F Ê (C J =P ê 

( í 2*0 

- 1 ) T 0 2 

340 

IF 

0=1 THEN 

NEXT 

0 

350 

FOR 

K=C TO 2 

STEP 

-1 

350 

IF 

F$ <K) =FÊ i 

K - 1 ) 

THEN GOTO 


URL 1000" 

970 L 4 T V í= r $CK) 

980 LET F$ CK3 =F$ (K-13 
990 LET Fí ÍK-13 =YÍ 
1000 NEXT K 
1100 NEXT C 
1200 FOR C=i TO 8 
1500 PRINT F i (C) 

1520 IF F$ÍC3 *“■’ THEN GOTO UAL 
"2Q00" 

1602 L4T Q$=i-4 (15 +F$ (25 +4$ (3) + !”$ 


(43 4 F $ (53 


1505 

DIM X(03 


1603 

INPUT X . 


1610 

IF Fí (03 ="AC“ THEN 

LET AC =X 

1520 

IF Fí (03 = “DT" THEN 

LET DT =X 

1525 

IF F$(C3="DT" AND : 

X ; =0 THEN 

GOTO 

UAL "90" 


1530 

IF Fí íC3 ="DS" THEN 

LET DS =X 

1640 

IF F í í C 3 =" DU" THEN 

LET DU = X 

1550 

IF Fi(C3="SF" THEN 

LET SF =X 

1550 

IF F$(C3 ="SI" THEN 

LET SI=X 

1570 

IF F$(C3=“TF" THEN 

LET TF =X 

1672 

IF Fí (03 ="TF" AND 

X ■; =0 THEN 

GOTO 

UAL "90" 


1580 

IF F$ £C3 ="TI" THEN 

LET TI=X 

1581 

IF Fí £03 =“TI" AND 

X < 0 THEN 

GOTO 

UAL "90" 


1530 

IF Fí (C 3 ="UF“ THEN 

LET UF = X 

1700 

IF Fí(C3="UI" THEN 

LET UI=X 

1514 

PRINT " = ";X 


1817 

NEXT C 


1820 

GOTO UAL "90" 


2000 

IF 0 í = " R CDTSITIUI" 

THEN GOT 

0 URL 

"4-000" 


2001 

IF Q$ ="ACD3SITIUI" 

THEN GOT 

0 URL 

"4-250" 


2002 

IF Q$ = "ACSIT IUFU I" 

THEN GOT 

0 URL 

"4520" 


2003 

I F Q í = " A C 5 F SITIUI ‘ : 

THEN GOT 

0 4710 


2004 

IF Q í = "ACSITFTIUI" 

THEN GOT 

O 4800 


2005 

IF Qí="ACDUSITIUI“ 

THEN GOT 

0 5000 


2005 

IF 0 í = " S IT FTIU F UI ‘ : 

THEN GOT 

0 502 

0 


2007 

IF Q í = "SFSITFTIUI" 

THEN GOT 

0 5040 


2008 

IF Q í = " D U S IT FT IU1 1: 

THEN GOT 

0 5050 


20.03 

IF Q í = "DSSITFTIUI" 

THEN GOT 

0 5050 


2010 

IF Q$ = "ACSITFTIUF" 

THEN GOT 

0 5000 


2011 

IF Q í = "A C SFSIT FTI ‘ ‘ 

THEN GOT 

0 5010 


2050 

REM DAS LINHAS 201 

2 ATE 399 

7 > > > E 

:SPACO RESERUADO PARA IMPLtM 

ENTROOES<< 


3338 

GOTO UAL "9300“ 


4800 

PRINT 


4100 

LET TF=TI+DT 


4110 

PRINT "TF = " , TF 


4112 

LET G =1 


4120 

IF TF =0 THEN GOTO 

UAL "900 

0" 



4130 

•=; 

LET SF =31-UI-;T+(DT*D! 3 *AC* 

4140 

PRINT "SF = SF 


4150 

_E“ DS = S F-SI 


4150 

-PONT "DS = " : DS 


4151 

LET 0=2 


4! 70 

IF DS =0 THEN GOTO 

URL "3000 

4180 

LET UF=U14PC 4DT 


4130 

PRINT "UF = • UF 


4131 

LET G =3 


4200 

IF UI=0 RND PO=0 T! 

HEN Gü;- 

JRL " 

3000" 


4210 

LET DU=UF-UI 


4220 

PRINT "DU = ":Dv 


4231 

G 0 S ü 5 V P L : ' i - O 0 


4240 

GOTO URL "5335" 


4250 

PRINT 


4251 

LET 5-=D5t5I 


4255 

PRINT ; SF = 5- 


42 5 0 

LET P=,^4R0 


4255 

IF p=0 THEN GOTO U 

Pj_ 4 : D ' 

4 4 7 0 

_ET C=-DS 
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4-271 

LET 5 =UI 

•4-275 

LiiT K = b F 5 -4 + AtC 

4.275 

LET G = 1 

•4230 

IF K. < 0 THEN GOT0 UAL "9000" 

•4235 

LET 5 =5GR K 

4290 

LET DT = (8-B3 /(2 4 A) 

4300 

IF DT >0 THEN GOTO UAL "4315 

4305 

LET DT = ( - 5 -5 3 (2 A 3 

4306 

LET G =2 

4310 

IF DT • =0 THEN GOTO UAL "9 00 

0 


4315 

PRINT "DT = " ; DT 

4320 

LET TF = DT+TI 

4325 

PRINT ""TF = " : TF 

4330 

LET UF=UI+AO*DT 

4335 

PRINT "UF = " ; UF 

4340 

LET D‘U = UF-UI 

•4345 

PRINT "DU = ";DU 

4350 

GÜ5U5 UAL "3500" 

•4355 

GOTO UAL "6995" 

4350 

LET UF=UI 

4 3 5 5 

PRINT "UF = ” ; UF 

4 3 5 5 

LET G =3 

•4 3 5 7 

IF UF =0 THEN GOTO UAL "9000 

4359 

LET DU=UF-UI 

•4370 

LET G =4 

4371 

IF DU < 0 AND DS > 0 OR DU >0 AN 

D D 5 

0 THEN GOTO UAL "9000" 

4375 

PRINT "DU = ";DU 

•4 3 7 5 

LET DT =D3/UF 

4380 

PRINT "DT = ";DT 

4335 

LET T-=ritD T 

•4 3 3 5 

PRINT "TF = ";TF 

4337 

GüsuB UAL "3500" 

•43 3 3 

GOTO UAL "5995" 

4520 

PRINT 

•4 5 3 0 

LET DU= U F -UI 

4540 

PRINT "DU = ; iDU 

4541 

LET G =3 

4550 

JF DU =0 AND UF =0 AND UI=Q A 

ND Aü 

‘ = O I H z N GOT0 UAL "469O " 

•4 5 51 

LET 0=6 

4570 

IF DUo0 AND AC=0 THEN GOTO 

UhL 

"4690" 

•4571 

I F D U = 0 0 R A 0 = 0 A N D U F < > 0 A 

ND UF = UI THEN GOTO UAL "4660" 

4530 

LET DT =DU/AC 

4590 

PRINT '"DT = , DT 

4500 

LET TF=TI4DT 

4505 

PRINT ‘"TF = " ; TF 

4510 

LET 3=2 

•4511 

IF TF:=0 THEN GOTO UAL "900 

0 


4 5 2 0 

cr 

LET SF = S14UI*DT4íDT 4DT) 4AC4 

4530 

PRINT "SF = : SF 

4540 

LET DS = SF - SI 

4550 

PRINT "DS = "; DS 

4651 

LET G =5 

4552 

GOSUB UAL "8500" 

4653 

GOTO URL "6995“ 

4 5 5 0 

PRINT "DT = OUAi_OUER" 

4556 

PRINT '' > > M0 U IMENT0 SEMPRE I 


4530 

GOTO UAL "6995" 

4690 

GOT0 UAL "9000" 

•4700 

GOTO UAL "6995" 

4710 

PRINT 

5400 

GOTO UAL "9300" 

5995 

PRINT 

5996 

PRINT AT 17,0;"00N SULTE LIS 

7A DE 

DADOS ?'?'? CASO NlClSSARIO 

DIGITANDO ,,,! C ,ii! PARA IN 

iLLH H 

D E N 0 V 0 0 A 5 0 0 0 N T R A R 10 , 

DIG17 

E QUALQUER T^fQLA « " 

5999 

IF INKEY $ = " " THEN GOTO UAL 

■ ‘ 59 9 9 



7000 IF INKEY$ = "C" THEN GOTO UAL 
"7004-" 

7001 IF INKEY$="I" THEN GOTO UAL 
"14-" 


7003 GOTO UAL 
7004- CLS 
7005 PRINT , 


;! 9 0 :! 


7006 GOTO UAL "7Q00+104G" 

7010 PRINT 

7011 PRINT B UI, AO E D5 > > >DEU 

EM SER CONFERIDOS. 

7012 GOTO UAL "8004" 

7020 PRINT 

7021 PRINT "1 TF OU DT MENORES O 

U IGUAIS (ZERO)'?" 

7022 GOTO UAL "3004" 

7030 PRINT 

7031 PRINT g UF = UI = 0 (ZERO3 

>REPOUSO?" 

7032 GOTO UAL "8004" 

7040 PRINT 

7041 PRINT S DU ■; 0 E DS>0 OU DU > 
0 E DS •;O > > >CONFERIR . " 

7042 GOTO UAL "3004" 

7050 PRINT 

7071 PRINT "1 UALORES MUITO PEOU 
ENOS DEUEM > SER CONSIDERADOS IGU 
AIS A ZERO < ARREDONDAMENTOS DEUE 
M SER USADOS QUANDO NECESSÁRIOS" 
7062 GOTO UAL "3004" 

7060 PRINT 

7061 PRINT g AC E DU DEUEM SER 
CONFERIDOS" 

70dl GOTO UAL "3004" 

7070 PRINT 

7071 PRINT ' g FALTA IMPLEMENTADA 

O" 


7072 FOR X =1 TO 40 

7073 NEXT X 

7074 CLS 

7075 LIST URL "2060" 

8004 PRINT AT 19,0 :"> >>DIGITE UM 
A TE CL A OUALOUER •: < <'' 

0005 li- INKEY $ ="" THEN GOTO UAL 
"8005” 


UI 


8006 
8007 
8500 
THEN 
8510 

< A O S 
UIMENTO 
8515 IF 
■;RBS UI 
UIMENTO 
8520 IF 

< ABS UI 
UIMENTO 
8525 IF 
<ABS UI 
UIMENTO 
8530 IF 
>ABS UI 
UIMENTO 
8535 IF 
> ABS UI 
UIMENTO 
8540 IF 
>ABS UI 
IMENTO 
8545 IF 


CLS 

GOTO UAL "6995" 

IF DU =0 AND UFO0 
PRINT "4 MO UIMENTO 
IF ABS SF <ABS SI 
AND AC >0 THEN 
RETROGRADO 
A B S S F < A B 5 51 
AND AO <0 THEN 
PROGRESSIUO 
A B S S F > A B 5 S I 
AND AC <0 THEN 
PROGRESSIUO 
A B S S F > A S S SI 
AND AC >0 THEN 
RETROGRADO 
ABS SF < ABS SI 
AND AC <0 THEN 
RETROGRADO 
ABS SF <ABS SI 
AND AC >0 THEN 
PROGRESSIUO 
ABS SF >ABS SI 
AND AC >0 THEN 
PROGRESSIUO 
ABS SF >ABS 


SI 

>ABS UI AND ACi0 THEN 
UIMENTO RETROGRADO 
3547 LET G=5 
3550 RETURN 
G000 PRINT "U 
DE ENTRADA" 

9002 GOTO UAL 


AND AO =0 
UNIFORME" 
AND ABS UF 
PRINT "4 MO 


AND ABS 
PRINT " 


UF 

-MO 


AND ABS UF 
PRINT 4 MO 


AND ABS UF 
PRINT "4 MO 


AND ABS UF 
PRINT "4M0 


UF 

-MO 


AND ABi 
PRINT 


AND ABS UF 
PRINT "4 MO 


AND ABS UF 
PRINT "4 MO 


ílriy y z. o6 . 
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3300 PRINT ' ERRO DE DIOITRCRO DE 
UhRIhUEIS : , , üü FRLTR de imple 
MEHThChü > > > > *• 

3305 LET G = 7 

3310 GOTO URL “6395“ 

3838 5R UE ‘' M U U 3§ ; 

3839 RUN 


USO DO PROGRAMA 

1) Carregue o programa no computador 

2) Rode-o 

3) A medida que forem se apresentando na tela, siga correta¬ 
mente as instruções 

4) Quando o programa parar, pedindo entrada de dados, di¬ 
gite por exemplo: 

ACSIVITIDT (sem espaços) 

Desta forma você estará entrando com os dados: 

AC — Aceleração 
SI — Posição Inicial 
VI — Velocidade Inicial 
TI — Instante Inicial 
DT — Intervalo de Tempo 

5) Digite NEW UNE (Enter) 

a) Imediatamente no canto superior esquerdo da tela será 
impresso: 

AC SI VI TI DT (Computador aceitou seus dados) 

A seguir será impresso: 

a) AC — e o computador pára esperando a introdução do va¬ 
lor para AC. Atribua um valor para AC, digamos 10 

b) DT — o computador pára novamente esperando um valor 
para DT. Faça, por exemplo, DT = 20 

c) SI — atribua um valor a SI 
SI = 0, por exemplo 

d) TI - faça TI = 0 

e) VI. Faça VI = 0 
Você obterá o resultado: 

AC = 10 
DT= 20 
SI = 0 
TI = 0 
VI = 0 
TF = 20 
SF = 2000 
DS = 2000 
VF = 200 
DV = 200 

* Movimento progressivo ACELERADO 

6) Digite C. Observe o que foi impresso. 

7) Responda aos quesitos para voltar ao início do programa 
ou para nova entrada de dados. 

8) Digite agora: ACDSSITIVI e proceda como o anterior. 

9) Faça o mesmo com ACTIVISIVF e proceda da mesma 
forma. 

10) Pratique bastante, usando esses três exemplos, inclusive 
mudando a ordem das variáveis, (cuidado para não des¬ 
respeitar a sintaxe das mesmas). 

11) Digite: ADSITIVIDT e observe. Verifique lista de dados 
duvidosos ou incoerentes. 

12) Rode novamente o programa. RUN (NEW UNE) 

13) Tente outras combinações, dê comprimentos maiores ou 
menores que 10 caracteres. 

14) Digite: ACSFSITIVI e observe. Verifique lista de dados 
ou incoerentes, digitando C. 

Depois de exibir por alguns instantes a mensagem: 

a 

[TI falta implementação. 


As linhas 4710 e 4800 estão colocadas dentro da rotina 
de cálculos. 

16) LIST 4710 

4710 PRINT — aqui deve iniciar a implementação. 
Implementação dos cálculos da linha 2003. 

ACSFSITIVI indica que são conhecidos: 

AC = aceleração 

SF = Posição Final (Espaço Final) 

SI — Posição Inicial (Espaço Inicial) 

TI — Instante Inicial 
VI — Velocidade Inicial 

e o que devem ser calculados: 

DS = Espaço percorrido (variação de posição) 

TF = Instante Final 

VF = Velocidade Final 

DT = Intervalo de Tempo (tempo gasto) 

DV = Variação de Velocidade 

Expressões matemáticas e do BASIC usadas na implemen¬ 
tação. 

* Para o MUV — Movimento Uniformemente Variado: 
a = CONST AC = CONST 

(A aceleração pode assumir qualquer valor constante, desde 
que diferente de zero). 

V = V 0 4- a A t-* VF = VI + AC * DT 

S = Sq + V 0 At + (a/2) At 2 

SF = SI -I- VI * DT + AC * DT * DT * .5 

AS = S - S 0 -► DS = SF - SI 

AV = V - V 0 -►DV = VF - VI 

* Para MU — Movimento Uniforme, a aceleração assume so- 


mente o valor zero. 


DADOS 

A CALCULAR 

AC 

DS 

SF 

DT 

SI 

TF 

TI 

VF 

VI 

DV 


Calcularemos primeiramente o DS, já que temos SF e SI 
DS = SF — SI 
4710 PRINT 

4720 LET DS = SF - SI 
4722 PRINT "DS = DS 

A expressão SF = SI + VI * DT + AC * DT * DT * 0.5 
pode ser transformada em: 

0 = (— SF + SI) + VI* DT 4- AC * DT * DT * 0.5 

que é uma equação do segundo grau na variável DT, e que 
admite duas raizes. 

Fazendo: 

A = .5* AC 
B = VI 

C = (- SF + SI) = - (SF - SI) = - DS 
K = B*B—4*A*C 
S = SQR K 

Sendo: 


A seguir, o programa será listado automaticamente na 
linha 2060. 

15) Digite LIST 2003 e verifique as linhas: 

2003 IFQ$ = "ACSFSITIVI THEN GOTO 4710. 

2004IF Q$ - "ACSITFTIVI THEN GOTO 4800. 

Observando-se as linhas 2003 e 2004, pode-se verifi¬ 
car que a linha 2003 desvia o fluxo para a linha 4710 e a linha 
2004 desvia para a linha 4800. 


ax 2 4- bx 4- c = 0 
ou então: 


x = — b + \/b 2 — 4ac ' 
2a 


DT = (- B - S) / (2*A) ou 

DT = (- B + S) / (2*A) = (S - B) / (2 * A) 


No nosso caso devemos ter o cuidado de prever que o 
valor de DT deva ser somente positivo. 
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* 4725 LET A = .5* AC 

Aqui devemos prever o caso em que AC = 0 (movi¬ 
mento uniforme). Desviaremos o fluxo, sob esta condição, pa¬ 
ra a linha 

4730 IF A = 0 THEM GO TO VAL "4754" 

4731 LET C = - DS 

4732 LET B = VI 

4733 LET K = B*B—4*A*C 

Ao ser executada SQR K, devemos prever K menor que 
zero e desviar o fluxo para linha 9000. 

Como fatalmente, tendo K < 0, teremos dados duvi¬ 
dosos ou incoerentes entre os valores de VI, AC e DS, deve¬ 
mos imprimir a linha 7011. 

4734 LET G = 1 

4735 IF K < 0 THEM GO TO VAL "9000" 

4736 LET S = SQR K 

4737 LET DT = (S — B) / (2 * A) 

4738 IF DT > 0 THEM GOTO VAL "4743" 

4739 LET DT = (- S - B) / (2 * A) 

Devemos agora prever que as duas respostas podem 
ser negativas ou nulas 

4740 LET G = 2 (imprime mensagem codificada na linha 

7021, se a linha 4741 for verdadeira) 

4741 IF DT < = 0 THEM GO TO VAL "9000" 

4743 PRINT "DT = "; DT 

4744 LET TF = DT + TI 

4745 PRINT "TF = ";TF 

4748 LET VF = VI + AC * DT 

4749 PRINT "VF = "; VF 

4750 LET DV = VF - VI 

4751 PRINT "DV ="; DV 

4752 GO SUB 8500 (conduz à interpretação do movimento) 

4753 GO TO 6995 


Daqui para frente devemos implementar cálculos para 
movimento Uniforme. Assim devemos saber que: 


Substitui "lindamente" a implementação estudada, 
com uma enorme economia de memória, podendo, portanto, 
a linha 2004 ser alterada para: 

2004 IF Q$ = ACSITFTIVI THEM GO TO VAL "4730" 
o que permitirá sua implementação a partir da linha 4730 e não 
mais a partir de 4800. 

4730 PRINT 

Pronto. Agora será tudo por sua conta. Mãos à obra. 


Tabela I: Estrutura das linhas 


linhas 1 a 90 
91 a 1820 
2000 a 3997 

4000 a 6994 


6995 a 7003 

7004 a 8007 


8500 a 8550 


— Instrucionalização do programa 

— Entrada e apresentação de dados 

— Verificação de dados implementa¬ 
dos ou a implementar 

— Cálculos implementados ou a im¬ 
plementar. Todos os cálculos im¬ 
plementados devem terminar com 
as linhas. 

GOSUB VAL "8500" 

GOTO VAL "6995" 

— Imprime chamadas para: lista de 
dados duvidosos ou incoerentes; 
para reiniciar o programa ou sim¬ 
plesmente para permitir nova en¬ 
trada de dados. 

— Impressão dos dados duvidosos 
ou incoerentes. A linha impressa 
é comandada pelo valor atribuído 
à variável G no instante em que 
ocorre o dado duvidoso ou incoe¬ 
rente. 

— Sub-rotina de interpretação do 
movimento estudado. É ela quem 
imprime o tipo de movimento em 
questão. 


a = 0 -► AC = 0 

Y = CONST-WF = VI 

V = V 0 

S = S 0 + VAT-*SF = SI + VI*DTou 

SF = SI + VF* DT 
Como dispomos de VI, então: 

* 4754 LET VF = VI 
4755 PRINT "VF = "; VF 

Devemos prever a possibilidade de que VI = 0, logo 
VF = 0. Neste caso teremos repouso? 

4756 LET G = 3 (imprime mensagem da linha 7031) 

4757 IF VF = 0 THEM GO TO VAL "9000" 

4758 LET DV = VF - VI 

4759 LET G = 4 

4760 IF DV < 0 AND DS > 0 ou 

DV > 0 AND DS < 0THEM GO TO 9000 

4761 PRINT "DV = "; DV 

4762 LET DT = DS/VF 

4763 PRINT "DT = "; DT 

4764 LET TF = TI + DT 

4765 PRINT "TF = ";TF 

4798 GOSUB VAL "8500" 

4799 GO TO VAL "6995" 

Se você entendeu perfeitamente o que foi desenvolvi¬ 
do entre as linhas 4710 e 4799, você está apto a executar qual¬ 
quer outra implementação, procedendo semelhantemente. 

No entanto, antes que você perca tempo e muito espa¬ 
ço de memória do seu micro, vou lhe mostrar que todo este 
trabalho de estruturação executado na criação das linhas 4710 
a 4799, em termos de programação, é totalmente inútil, se 
observarmos atentamente o programa na sua apresentação 
original. Execute os seguintes passos: 
a) LIST 4260 

Verifique que as linhas 4360 a 4388 são idênticas às li¬ 
nhas de 4754 a 4799; e que as linhas 4260 a 4355 são igual¬ 
mente idênticas às linhas 4725 a 4753. Logo: 

4725 LET A = .5 * AC 

4726 LET VF = VI 

4728 IF A = 0 THEM GOTO VAL "4360" 

4729 GO TO 4260 



LIGUE-SE À 
INFORMÁTICA 


h 


FAÇA COMO OS 
FUNCIONÁRIOS DA 
ALCAN. XEROX. 
SEARLE, COPAS. 
INTELPA, DARLING. 
AIR SERVICE: 


MATRICULE-SE NA 
S O S. COMPUTADORES. 

CURSOS DE 


BASIC • COBOL • ASSEMBLER. 

• Número limitado de alunos por 
classe • 1 /3 de todas as aulas com uso 
' direto dos computadores, inclusive nos cursos de 
Cobol • Professores altamente qualificados • Cursos 
apostilados e apresentados com transparências • Modernas 
instalações com vários equipamentos Dismac, Prológica, 
Sysdata entre outros • Preços extremamente acessíveis. 



COMPUTADORES 


NÚCLEO I - S. PAULO 

Av. Pacaembú, 1.280 
Fones: 66 7656/66 1513 

NÚCLEO II - S. PAULO 

R. Tomás Carvalhal. 380 
(Próximo Estação Metrô Paraíso) 
Fone: 570^097 


A NOVA MANEIRA DE 
APRENDER A PROGRAMAR 


NÚCLEO I - S. PAULO 

Av. Pacaembú. 1.280 

Fone: 8264)466 

NÚCLEO IV - ITANHAEM 

R. Zeperino Soares, 19 — sala 25 

Fone:921492 

NÚCLEO V - SANTOS 

R. Mato Grosso, 450 
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Coordenação Geral: Ana Lúcia de Alcântara 
Cobertura do evento (organizadores e fabri¬ 
cantes do Rio de Janeiro) — Fátima França 



Em novembro, o Rio de Janeiro estará sendo 
palco do mais importante evento da Informática 
brasileira. Ele se iniciará trazendo consigo 
inúmeros comentários — alguns contrários a 
sua realização, principalmente por ser na cidade 
maravilhosa. Outros, a favor, porém nem tanto. 

A verdade é que muitas empresas 
demonstraram, nas entrevistas, uma 
preocupação com a infraestrutura do Riocentro; 
uma preocupação que vem desde a experiência 
da Informática/82. Pelo que observamos nos 
contatos mantidos com a Itautec, Dismac e 
outras, as empresas este ano não estão tão 
preocupadas em apresentar lançamentos ou 
grandes novidades, mas sim, em apresentar ao 
público (segundo os organizadores, 
constituído de profissionais e técnicos), a 
imagem de maturidade, mostrando em seus 
equipamentos as explicações profissionais, a 
ligação com mainframes, on-line e, um dos 
pontos predominantes na maioria das empresas, 
é a compatibilidade de seus micros com o 
projeto Cirandão da Embratel. 

A Feira este ano foi dividida em setores, uma 
decisão dos organizadores baseada em pesquisa 


realizada há um ano entre os expositores da 
última Feira (83, em São Paulo). 

As universidades apresentarão seus projetos. 

Haverá uma tendência de mostrar o 
desenvolvimento do software — uma iniciativa 
que partiu da Itautec, através de contrato 
firmado com a Assespro. 

No meio do Riocentro, como sempre, estará a 
grande e poderosa IBM. — que não quis 
adiantar nada sobre o que iria apresentar. 

Por outro lado, mesmo não tendo muitos 
lançamentos como a Feira do ano passado, 
algumas empresas, como a Pro/ógica, levará 
um TRS-80 — o CP-400 Color. 

No Congresso o meio político e empresarial, 
com certeza, estará numa grande agitação. 
Como este ano a discussão em torno do projeto 
de lei para a reserva do mercado foi muito 
discutida e está para ser votado, o Congresso 
trará inúmeros painéis e palestras sobre o tema, 
à mesa. Empresários nacionais e internacionais 
estarão discutindo, com ênfase, o tema. 

De resto, é só esperar para ver! 
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Espera-se que cerca de 300 exposi¬ 
tores nacionais e estrangeiros devam 
participar da IV Feira Internacional de In¬ 
formática, mostrando seus equipamen¬ 
tos, periféricos e software, distribuídos 
nos stands instalados nos 22.000 m 2 de 
área de circulação. 

Para facilitar os negócios da Feira, 
para onde devem se dirigir aproximada¬ 
mente 200 mil pessoas nos seus sete 
dias de funcionamento, foi montado um 
esquema especial por parte dos organi¬ 
zadores do evento. Este ano, ao contrá¬ 
rio do que acontecia até agora, a Feira 
será restrita, de segunda a quinta-feira, 
aos profissionais da área de informática, 
congressistas, expositores e convida¬ 
dos. O objetivo da Feira é retratar a es¬ 
sência do mercado de informática que 
existe no Brasil. 

A Feira de informática, este ano, 
será diferente das que já foram realiza¬ 
das até agora, tanto na estrutura como 
no seu próprio objetivo. O Rio Centro 
contará com três pavilhões, por onde 
estarão espalhados os expositores. Em 
um dos setores (o pavilhão de exporta¬ 
ções) ficarão as empresas maiores, com 
stands de até 1.000 m 2 . Para facilitar a 
circulação do público, apenas 46 empre¬ 
sas estarão naquele local. Na passarela e 
no pavilhão central ficarão os stands de 
menor porte divididos em setores. Have¬ 
rá áreas para periféricos, consultoria de 
software, suprimentos, imprensa, mi- 
croempresas, aplicação e U.S.E.I. São 
sete setores específicos instalados no 
Pavilhão Central. 

Estão sendo programadas também 
atividades especiais para os expositores, 
que este ano terão uma sala dedicada 
exclusivamente a eles, para palestras a 
cerca de seus produtos. A sala funcio¬ 
nará como um escritório de marketing. 

Quem for à feira de Informática/84 
contará com um sistema de orientação 
bastante sofisticado. Todo o projeto de 
sinalização seiá através de canhões de 
raio laser, com telões em duas praças 
nos pavilhões de exposições e ainda ou¬ 
tros recursos. Haverá um catálogo ele¬ 
trônico com informações, via terminais, 
onde os visitantes poderão fazer consul¬ 
tas, painéis de sinalização e todo um 
projeto que está sendo considerado fu- 
turístico dentro das comunicações. 

As universidades, com seus stands 
na entrada da Feira, serão uma das novi¬ 
dades do evento. Existirá uma área de 
pesquisa e desenvolvimento por onde o 
público terá que passar obrigatoriamen¬ 
te. A idéia é de que se entre na Feira ten¬ 
do uma noção do que se está fazendo 
em termos de futuro, para que ao passar 
por este pavilhão, se tenha uma idéia do 
presente na era da Informática. 

Os organizadores da Feira estão 
programando várias surpresas para os 
visitantes da Informática/84, mas se¬ 
gundo o diretor da Feira, José Carlos 
Pardellas, ainda é cedo para anunciá-las. 
Ele só pode adiantar que um robô estará 
circulando pela área do Riocentro, aten¬ 
dendo às solicitações e respondendo às 
dúvidas dos visitantes. José Carlos Fi¬ 
gueiredo garantiu, porém, que o públi¬ 
co ficará deslumbrado. 


O público em geral, para participar 
da Feira, pagará na bilheteria o ingresso 
no valor de 20 mil cruzeiros, que dará di¬ 
reito à visitação durante toda a realiza¬ 
ção do evento. Ou melhor, este preço é 
para profissionais de qualquer área que 
quiserem participar apenas da Feira. Pa¬ 
ra o público em geral o preço será de 5 
mil adulto e 2.500 crianças, na sexta, sá¬ 
bado e domingo, únicos dias em que o 
Pavilhão poderá ser percorrido pelo pú¬ 
blico leigo. 

O Congresso 

Onde Estamos? Para onde Vamos? 
Este é o lema do XVII Congresso Nacio¬ 
nal de Informática, entre os dias 5 e 11 
de novembro, no Riocentro, no Rio de 
Janeiro. E por mais surpreendente que 
possa ser, esta é a primeira vez que o 
Congresso será totalmente informati¬ 
zado. 

Gerenciado pela PRC Promoções 
Ltda. e pela ML Planejamento Turísti¬ 
cos e Promoções, o Congresso terá um 
Cobra 530 funcionando como banco de 
dados, e 18 terminais espalhados em di¬ 
versos locais. Quinze terminais estarão 
instalados nos balcões, a fim de agilizar 
o processo de inscrições, evitando assim 
as tradicionais filas e congestionamen¬ 
tos normais neste tipo de evento. Ha¬ 
verá também um terminal na sala de im¬ 
prensa, por onde os jornalistas pode¬ 
rão acompanhar todos os seminários, 
painéis e obter os relatórios finais sobre 
os assuntos em debate, e até ficar sa¬ 
bendo quais serão as atividades sociais 
previstas para os convidados do even¬ 
to. Outros dois terminais estarão insta¬ 
lados na presidência do Congresso e no 
CPD. Ainda à disposição, estará tam¬ 
bém a menina dos olhos da gerencia do 
Congresso: um editoi de textos com a 
função de emitii qualquer tipo de texto e 
relatórios, funcionando com um termi¬ 
nal de telex. 

Todos os inscritos no Congresso 
Nacional de Informática poderão se uti¬ 
lizar dos terminais para consultas e ain¬ 
da, para uma melhor orientação, cerca 
de 40 recepcionistas estarão a postos 
para as informações necessárias. 

Atividades 

O congresso Nacional de Informá¬ 
tica tem como objetivo principal discu¬ 
tir a situação da informática no Brasil, 
sua tecnologia a nível mundial e sua 
aplicabilidade à realidade brasileira. Para 
isso, as palestras e seminários foram di¬ 
vididas de acordo com áreas de interes¬ 
ses específicos. 

Cerca de 210 trabalhos, dos 450 
apresentados, foram selecionados para 
a apresentação em palestras técnicas. 
As palestras terão aproximadamente 50 
minutos cada e farão parte de conjun¬ 
tos de interesses que possam dar aos 
participantes uma visão completa da 
matéria. Para as sessões técnicas estão 
programadas, entre outras, as seguintes 
palestras: Administração de Recursos 
de Informática; Automação de Escritó¬ 
rios e Rede Locais; Aspectos Econômi¬ 
cos e Sócio-Políticos da Informática; 
Automação Industrial; Banco de Dados; 



Engenharia de Software; Formação e 
Reciclagem de profissionais de informá¬ 
tica; Inteligência Artificial; Microeletrô- 
nica e projetos de hardware em geral; 
Segurança e Auditoria na Informática; 
Sistemas gerenciais e de apoio às deci¬ 
sões e Software básicos. 

Estes trabalhos selecionados para 
as palestras vão concorrer a cinco prê¬ 
mios: duas passagens para a próxima 
NCC, nos Estados Unidos, e três passa¬ 
gens para o Congresso Regional de In¬ 
formática, marcado para abril do próxi¬ 
mo ano, em Brasília. 

A segunda parte do Congresso te¬ 
rá como tema central: 1984 — O empre¬ 
go da informática. Os debates vão ser¬ 
vir para avaliar a situação atual e as ten¬ 
dências futuras do emprego da informá¬ 
tica e seus impactos na sociedade. Atra¬ 
vés de palestras e painéis, especialistas 
de diversas disciplinas discutirão a infor¬ 
mática sob variados aspectos. Segundo 
Newton Fleury, diretor de programação 
do Congresso, um dos painéis que de¬ 
verá despertar grande interesse será o 
que vai discutir o papel da Informática 
na Cultura Brasileira, que terá as partici¬ 
pações dos senadores Fernando Henri¬ 
que Cardoso, Marco Maciel, além de 
Nélson Da Mata e Afonso Romano de 
Sanfana. Outro painel de destaque é 
o que abordará a informática e o Direito 
do Cidadão. Estão convidados para o 
debate o Secretário de Justiça do Rio de 
Janeiro, Vivaldo Barbosa, o presidente 
da Associação Brasileira de Imprensa, 
Barbosa Lima Sobrinho, Wellington 
Moreira Franco e Mário Dias Ripper. 
Ainda dentro desta segunda fase do 
Congresso, Newton Fleury ressaltou os 
painéis que serão realizados sobre Infor¬ 
mática da Educação, Telecomunicação 
em Informática e Informática e Admi¬ 
nistração Fiscal. 

A terceira fase do congresso, que 
será coordenada pela SUCESU — Na¬ 
cional, constará de um Fórum de Deba¬ 
tes que discutirá, em especial, as polí¬ 
ticas governamentais para o setor de in¬ 
formática e as perspectivas do setor fa¬ 
ce à conjuntura econômica. O Fórum de 
Debates vai ter a presença de vários po¬ 
líticos, deputados, ministros e senado¬ 
res, entre eles, Roberto Campos. 

Além destes três eventos principais, 
acontecerão sessões menores, mas tam¬ 
bém de grande importância. Um dos 
painéis que deve atrair bastante a aten¬ 
ção é o que tratará da Informática para 
executivos. Pela primeira vez o Congres¬ 
so terá palestras específicas para o pú¬ 
blico de executivos, tais como presiden¬ 
tes e diretores de empresas, que são 
usuários e investidores em potencial do 
setor de informática. Nestas sessões vão 
ser analisadas as perspectivas de uso de 
aplicações de capital no setor. 
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Programações Especiais 

Estão programadas ainda ativida¬ 
des especiais para os dias do Congresso 
e uma delas, que deve despertar muito a 
atenção, é a que mostrará uma oficina 
de desenho animado para micro compu¬ 
tadores. Na oficina, qualquer pessoa, 
mesmo sem nenhuma experiência em 
cinema ou computação, poderá produ¬ 
zir e assistir imediatamente algumas se- 
qüências de animação por computador. 
Nos primeiros dias de Congresso essa 
atividade será restrita aos congressistas, 
mas sexta, sábado e domingo será aber¬ 
ta ao público em geral. A organização da 
oficina será entregue a Marco Maga¬ 
lhães, premiado várias vezes no país e 
no exterior pelo desenho de animação 
Miow. 

Ainda dentro das atividades espe 
ciais, estarão sendo mostrados filmes já 


exibidos em circuito comercial, nos 
quais o computador tenha sido temá¬ 
tica. 


Estudantes 

A programação para o público es¬ 
tudantil, tradicional nos Congressos, es¬ 
tá assegurada. Através de palestras se¬ 
rão abordados temas como a História da 
Informática no Brasil e Política Nacional 
de Informática; O Teleprocessamento; 
a Automação em Escritórios. Estão pre¬ 
vistos, ainda, dois painéis para os estu¬ 
dantes: Ensino, Mercado de trabalho e 
Formação Profissional. 

Convidados Estrangeiros 

Muitos conferencistas estrangeiros 
já confirmaram presença. Jean-Paul Ba- 


quiast, secretário-geral do Comitê Inter- 
ministerial para assuntos de informática 
do governo francês, falará sobre a Polí¬ 
tica de seu governo. Van Viale, diretor 
do projeto Scribe, diretor da agência na¬ 
cional para a produção automatizada da 
França, além de M. Bernard Mugniery, 
diretor da Escola Nacional de Engenha¬ 
ria de Tarbes, vão falar sobre Conceito e 
Aplicação da Automação Industrial na 
Indústria Francesa, envolvendo produ¬ 
ção assistida por computadores, Con¬ 
trole de Processos e Robótica. Da In¬ 
glaterra estará participando o professor 
Manny Lehman, do Imperial Collegge of 
Science e Tecnology, que falará sobre 
As Tendências da Engenharia de Soft¬ 
ware. 0 americano Thomas Nies fará 
conferência sobre As Tendências Futu¬ 
ras em hardware e software. Fátima 
França. 
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Mumps e o super-micro 
da Medidata 

A Medidata, empresa que se desen¬ 
volveu a partir de 77, sempre dedicada à 
produção de software especializadas em 
administração, uso industrial, financei¬ 
ro e em todo o tipo de prestação de ser¬ 
viços, entra com força total na Informá¬ 
tica/ 84. Segundo o gerente de marke¬ 
ting da empresa, Luiz Oscar Dantas, de¬ 
ve fazer muito sucesso o super-micro 
que será apresentado pela Medidata, o 
Z-8000 Zilog. 

Com CPU de 16 bits, o super-micro 
tem capacidade de controle para até 3 
terminais, com possibilidade de terem 
acoplados até 10 impressoras. Funciona 
com discos Winchester de 15 Mb e car- 
tucnos streeamer para back-up (BKP-20 
da Compart), além de discos flexíveis 
dupla face da dupla-densidade de 5 1/4 
polegadas e interface de comunicação 
Síncrona com protocolo BSC 1. O Z- 
8000-Zilog tem 75 cm de profundidade, 
30 cm de largura por 30 cm de altura, 
instalado em gabinete vertical. Este no¬ 
vo super micro permite até 2 impresso¬ 
ras de linha de 300/600 1 p.m. e matri¬ 
ciais de 250 cps ou 100 cps. Os termi¬ 
nais deste novo equipamento podem ser 
remotos ou locais. 

A Medidata apresentará também, 
seu micro M 301, o que vale por 3,0 M 
30 L que já está sendo comercializado 
com sucesso, já que é compatível com o 
IBM PC, pode operar também como um 
micro de 8 bits com CP/M-80, o que re¬ 
presenta um aproveitamento maior de 
aplicações e evita o desperdício de in 
vestimentos já realizados. Ele também 
funciona como um terminal de vídeo e 
também se adapta ao uso de sistemas 
MUMPS. 

O sistema MUMPS tem sido o carro 
chefe de MEDIDATA desde que foi cria¬ 
do. A MUNPS é o software básico uti¬ 


lizado em toda a linha de computadores 
MEDIDATA, atuando em aplicações do 
tipo comercial, operando em on-line e 
em teleprocessamento. Ele é composto 
de um Sistema Operacional multi-usuá- 
rio e multi-tarefa, que opera em time- 
sharing, linguagem de programação e 
um sistema de gerência de Banco de 
Dados. F.F. 


O Conversor de Dados e o 
micro editor de texto 
da Compart 

A Compart Consultoria mostrará 
sua grande novidade deste ano; o micro 
editor de textos desenvolvido pela Com¬ 
part Eletrônica e que estará em funcio¬ 
namento na administração do congres¬ 
so, que se realizara paralelamente à Fei¬ 
ra. A Compart vai mostrar também a pri¬ 
meira versão do sistema de controle 
Open-Marketing aplicativo para o micro 
do Cobra-210. Este sistema já está sen¬ 
do comercializado e é o carro-chefe da 
empresa em termos de venda. 

Será comercializado na Feira um 
equipamento produzido pela Compart 
Eletrônica: o conversor de dados CD- 
200, que funcionará como um terminal 
de telex conectado a um terminal de 
computador. Vão ser relançados ainda o 
sistema de controle de operações de co¬ 
mércio exterior e o sistema de controle 
de investimentos, agora 530. F.F. 


Digitei lança modem 
e outros produtos 

A DIGITEL lançará três produtos 
novos na lnformática/84. Uma das novi¬ 
dades é a MODEM AA 12 75 BC assín¬ 


crono para operar tanto na rede priva¬ 
da como na rede comutada. Seu trans¬ 
missor pode ser direcionado através de 
painel central para operar a 1.200 bps ou 
75 bps, tornando possível o acesso à 
central de videotexto. O novo Modem 
da Digitei possui chave de computação 
entre o Modem e o telefone, atendendo 
à recomendação CCI/TT V.23. 

Outro equipamento a ser lançado 
pela Digitei é o NET-MUX (VCX 100, 
VCX 200 e VCX 300), que possui proces¬ 
sadores de redes que combinam fun¬ 
ções de multiflexação estatística com 
concentração de dados, utilizando ex¬ 
clusiva facilidade de comutação e nível 
de teclado. Tem possibilidade de geren¬ 
ciamento e supervisão da rede via qual¬ 
quer terminal de usuário, possibilita o 
balanceamento de cargas e oferece 
completa imunidade a erros de comuni¬ 
cação e total compatibilidade com ou¬ 
tros equipamentos. Suas características 
são as seguintes: canais principais de 1 a 
14 canais; canais secundários de 4 a 140 
assíncronos, 2 a 120 sincronos ou confi¬ 
guração mista, velocidade de 50 e 9.600 
bps, interfaces: EIA RS 232-C, CCI PT- 
ITT, V24 tração V28, capacidade 
agregada de 576 K bits de memória de 
64 K bits, expansível até 1M bits. 

A Digitei levará também à lnformá¬ 
tica/84 o BLUE-MUX, equipamento sem 
similares no país. O BLUE-MUX é um 
multiplexador de cabos coaxiais desti¬ 
nado a usuários IBM. O equipamento 
elimina os habituais problemas encon¬ 
trados em redes de cabos coaxiais, per¬ 
mitindo que um único cabo RG 62U rea¬ 
lize o trabalho executado por até 32 ca¬ 
bos. Facilita os procedimentos de insta¬ 
lação e oferece grande economia às re¬ 
des com cabos coaxiais, além de facili¬ 
tar a monitoração para os 32 sinais de 
transmissão através de um painel de 
LED'S. F.F. 
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Itautec e as diversas áreas da informática 



O sistema Videotexto a ser apresentado na Feira pela Itautec. 


A Itautec este ano inovou a forma 
de apresentação de seus produtos e ser¬ 
viços. Dividiu-se em cinco stands distin¬ 
tos onde apresentará a informática nas 
diversas áreas: videotexto; um especial, 
onde estará o micro novo 1 — 7000 PCXT 
(com três máquinas); outro, mostrando 
o 1-7000 em rede local; uma sala vip on¬ 
de estarão outros lançamentos como o 
fac-símile e o micro PCXT e, por último, 
uma área especialmente separada para 
as softwarehouses (para a apresenta¬ 
ção dos softwares dos micros Itautec). 

Esta divisão, segundo Helton Fi¬ 
gueiredo de Oliveira, gerente de produ¬ 
to microcomputadores, foi feita com o 
intuito de direcionar o público, dando 
uma segmentação aos usuários. 

A empresa, segundo Ana Maria 
Torragá, assessora de imprensa, terá 
este ano inúmeras novidades, tanto em 
hardware, como em software e ainda a 
apresentação dos micros em redes. 

Conforme adiantou Jenny Camara 
Guimarães Camilo, gerente de produto 
videotexto, a preocupação da empresa é 
mostrar nesta área, que o videotexto po¬ 
de ser usado também em redes privadas 
através do processamento distribuído — 
fugindo um pouco da imagem de rede 
pública implantada no Brasil. Neste sen¬ 
tido, segundo ela, o videotexto possibi¬ 
lita um custo menor, maior confidencia¬ 
lidade (tanto para informações internas 
como externas) e menor risco. Na feira, 
salientou, estarão o micro 1-7000 com 
placa, o sistema de editoração com ter¬ 
minal de consulta videotexto acessan¬ 
do o computador Itautec em paralelo ao 
da Telesp. 

Na sala Vip a Itautec pretende co¬ 
locar o seu lançamento (o fac-símile 
13021, o micco PCXT, um terminal de vi¬ 
deotexto) além de algumas palestras 
abordando temas como rede local e pro¬ 
mover algumas reuniões entre técnicos, 
o público especializado e representantes 
da empresa. 

Conforme adiantou-nos o gerente 
de produtos microcomputadores, no 
stand de software, a empresa dará con¬ 
tinuidade ao programa de desenvolvi¬ 
mento de software para o 1-7000, ini¬ 


ciando além disso, o desenvolvimento 
de software para seu novo equipamen¬ 
to. Este programa foi iniciado em convê¬ 
nio feito com a Assespro em outubro do 
ano passado, e resultou em 332 softwa¬ 
res para os micros-Itautec e o cadastra- 
mento de mais de 200 softwarehouses. 

No stand onde estarão os 1-9000 e o 
1-7000 será mostrada uma rede com 6 
micros tipo barramento, com cabo coa¬ 
xial, oscilidade de transmissão de 2,5 
Megabytes por segundo, com acesso 
CSMA/CA até 32 estações. Dentro des¬ 
sa rede disse Helton Figueiredo será 
apresentado ainda, um servidor de ar¬ 
quivos e de periféricos — impressora de 
disco e plotters — (software onde os 
usuários compartilham os periféricos). 

Quanto ao fac-símile, os represen¬ 
tantes da Itautec acreditam que ela será 
o produto que mais irá chamar a aten¬ 
ção do público. 

Daniel Henry Calmanowits, geren¬ 
te de produtos fac-símile afirmou que a 
maior atração da Itautec será o novo 
produto I FAC 3031. Em cima desta atra¬ 
ção, a empresa apresentará na sala vip, 
palestras sobre o lançamento e demons¬ 
trações sobre a potência de transmis¬ 
são rápida do fac-símile. 

O primeiro produto da empresa nesta 
área, foi o fac-símile I FAC 3020 que tem 
a capacidade de transmitir as informa¬ 
ções geralmente transmitida na telex, 
por modem (telefone) em até três se¬ 
gundo. O lançamento a ser apresenta¬ 
do na feira traz uma maior inovação tec¬ 
nológica, reduzindo este tempo para 1 
minuto. 

O conceito do fac-simile é uma "xe¬ 
rox a longa distância", ou seja, uma má¬ 
quina que, acoplada junto ao telefone 
transmite as informações de qualquer 
documento (texto, imagem ou símbo¬ 
los) através de uma leitura óptica e rece¬ 
be em qualquer lugar do mundo (aco¬ 
plado com receptor na linha telefônica), 
tudo, em períodos de tempo que variam 
de um a três minutos. 

Este produto cuja tecnologia é ja¬ 
ponesa, segundo o responsável da área, 
em vias de nacionalização e será co¬ 
mercializado possivelmente até final de 
novembro. A.L.A. 


Modem especial para 
Cirandão do 
Moddata/Coencisa 

A Moddata/Coencisa lança na ln- 
formática/84 toda a linha de equipa¬ 
mentos conectáveis à REMPAC, como o 
conversor de protocolos BCS/X-25 com 
até quatro portas de entrada BCS e uma 
porta de saída X-25. Estão previstos 
também os lançamentos do concentra¬ 
dor/conversor de protocolos Assíncro- 
nos/TTY com saídas X-25 e concentra¬ 
dor de até 4 canais X-25. Este último, 
apesar de já estar sendo comercializado 
com as empresas que utilizam a RENPC, 
deverá fazer sucesso. Mas a grande no¬ 
vidade da Feira, segundo a Moddata/ 
Coencisa deverá ser o Modem/MC-22, 
que é um Modem Síncrono e Assíncro¬ 
no para velocidade de 1.200 bps full-du- 
plex a 2 fios. Toda a produção deste 
MODEM está vendida até novembro e 
em virtude da grande procura, a empre¬ 
sa teve de aumentar a produção para 
400 unidades. Outra novidade a ser 
apresentada na Feira pela empresa é o 
Modem para uso especial no Cirandão 
MC 31-Assíncrono 1200/75 bps 2 fios. 
Além dos novos equipamentos, a Mod¬ 
data/Coencisa vai levar à Informática/ 
84 toda a sua linha completa de Modens 
síncronos e Assíncronos Bandabase e 
digitais de 1,200 e 19.200 bps. F.F. 


Imagem Institucional é a 
preocupação da Polymax 



Um dos equipamentos da Polymax a ser 
apresentado na Feira. 


"Para a Feira/84, a Polymax está 
mais preocupada em apresentar ao pú¬ 
blico, a imagem da empresa hoje, ou se¬ 
ja, uma empresa que já tem uma linha de 
produtos definida para resolver proble¬ 
mas, através de aplicações diferentes", 
afirmou Oswaldo Pereira Filho, Asses¬ 
sor de Marketing. 

Segundo Oswaldo Pereira, a Poly¬ 
max atualmente tem a solução para os 
problemas dos usuários independente 
do tipo de equipamentos que ele pos¬ 
sua, saindo é lógico dos produtos volta¬ 
dos para o lazer. "A preocupação da 
empresa", segundo ele, é a apresenta¬ 
ção das suas aplicações em redes". 

Com esta preocupação, a Polymax 
levará à Feira seus micros em "office au- 
tomation" (920 Net), comunicando-se 
com grande redes e mostrando que ca¬ 
da produto da empresa tem sua própria 
linha. 
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A Sysdata e 
seus periféricos 



Conjunto com módulos independentes da 
Sysdata (modelo III) possivelmente estará 
na Feira. 


0 lançamento mais importante a ser 
apresentado pelo fabricante dos Sysda¬ 
ta Jr. e III na Feira, este ano, será um 
conversor que funciona como terminal 
de telex. O terminal transforma os carac¬ 
teres de telex em códigos ASC (letras) 
na tela do micro e os armazena, jogando 
depois, para a impressora. 

Para o público leigo conforme afir¬ 
mou Sérgio D'Azzi, gerente de Marke¬ 
ting, o Sysdata mostrará a, placa RS- 
232, um modem para videotexto que 
possibilita a conexão dos micros TRS- 
80/Sysdata, por exemplo, o banco de 
dados da Bolsa de Valores sem utilizar a 
Telesp. 

Outro produto é a CP/M versão 
3.0 que foi prometida para um futuro 
próximo, mas que já está disponível. Es¬ 
ta versão enxerga qualquer quantidade 
de memória RAM que esteja disponível 
no micro, não necessitando perguntar 
ao sistema operacional quanto da área 
da memória estará disponível. Conforme 
disse D'Azzi, não existe similar nacional 
deste produto sendo novidade até mes¬ 
mo nos Estados Unidos. 

A empresa levará também para a 
Feira um monitor de 18MHz de faixa de 
passagem e monocromático. A.L.A. 

As três Elebras 
no Rio de Janeiro 

A Elebra apresentará seus produtos 
através de um stand dividido em três 
áiieas distintas: Transmissão de dados 
(modems); Telecomunicações e Contro¬ 
le de Processos e as Impressoras. 

Numa área de 250 m 2 , estará a Ele¬ 
bra Informática, fabricante de impresso¬ 
ras, apresentando a Mônica e os drives 
Horácio, etc.; a Elebra Computadores 
(mostrando, talvez o supermini) e a Ele¬ 
bra Eletrônica e a de Dados. 

Conforme adiantou Silvana Apare¬ 
cida da Silva, coordenadora de Propa¬ 
ganda da empresa, a Elebra não tinha 
definido até início de outubro o que, 
com certeza levaria à Feira/84. Mas, 
com certeza porém, em seu stand esta¬ 
rá o*multipless CD2400-MDT e os equi¬ 
pamentos da família MCP. A.L.A. 


A BASF e os 50 anos da fita magnética 



Fita proveniente da primeira produção da 
BASF de 1932. 


Aproveitando que este ano come¬ 
mora-se os 50 anos de apresentação da 
primeira fita magnética — quando, em 
1934 a BASF produziu os primeiros 50 
mil metros da fita magnética e os forne¬ 
ceu à AEG — a BASF Brasileira apre¬ 
sentará em seu stand uma série de ativi¬ 
dades envolvendo o tema. Conforme 
afirmou Jaime Moreira, Coordenador de 
Relações Públicas, será apresentada 
uma fita magnética (o evento principal 
da programação) onde estão registrada 
uma gravação com todo os aconteci- 



Sêlo Comemorativo dos 50 anos da fita 
magnética. 


mentos políticos ocorridos nos últimos 
50 anos no Brasil. A empresa também 
conseguiu junto a Empresa Brasileira de 
Correios e Telégrafos, a permissão de 
produzir um carimbo comemorativo 
para ser colocado em todas as corres¬ 
pondências da Feira. 

Quanto aos produtos o coordena¬ 
dor de RP não tinha muita informa¬ 
ção para passar mas adiantou que fle- 
xidisks, periféricos (impressoras), fitas e 
discos estarão em demonstração no 
stand. 


EMBRATELe o Cirandâo para Bibliotecas 


Uma tendência da Feira de Infor- 
mática/84 é a presença dos micros liga¬ 
dos à rede do projeto Cirandâo da Em- 
bratel, uma possibilidade dada, segun¬ 
do a empresa, pelo emulador de TTY 
que possibilita a qualquer micro o aces¬ 
so ao Cirandâo. 

Essa preocupação dos fabricantes, 
conforme disse a empresa, está abrindo 
o mercado aos fabricantes de terminais 
possibilitando o surgimento de pontos 
de vendas já que qualquer um pode 
acessar serviços públicos de informa¬ 
ção. No momento, o projeto Cirandâo já 
funciona permitindo o acesso às infor¬ 


mações da Fundação Oswaldo Cruz e 
com base de dados da Fundação Men¬ 
des, também na área médica, além da 
ba^e de dados da bolsa de informática, 
cujos usuários já podem se cadastrar 
on-line. 

Foi com base nesta ampliação do 
Cirandâo que a Embratel resolveu avan¬ 
çar o alcance do projeto. Assim sendo, 
na Feira de Informática deste ano, a em¬ 
presa vai lançar dentro do projeto, o 
acesso às Bibliotecas regionais de medi¬ 
cina, banco de sangue, dando ênfase à 
área médica. F.F. 


Dismac sem novidades mais com seu maior stand 


A empresa este ano, conforme 
adiantou José Antonio Lacerda, Geren¬ 
te de Marketing, participará do evento 
com o maior stand no qual ela já mon¬ 
tou com uma área de 250 m 2 . 

Segundo Antonio Lacerda, a em¬ 
presa não apresentará nenhuma novi¬ 
dade, pois a preocupação central é mos¬ 
trar a consolidação da linha de micros 
pessoal e comercial. 

Em seu stand a Dismac apresenta¬ 
rá caixas registradoras ligadas a micros 

— TPU (Terminais de ponto de venda) 

— e as calculadoras (com painel) cien¬ 
tíficas. 

Outras preocupação da Dismac é 
apresentar o alcance das aplicações de 
seus micros que inicia-se com os D-8100 


(compatíveis com o Apple II plus) e se¬ 
gue adiante com o Alpha 30003, compa¬ 
tível com os micros de 16 bits. A.L.A. 



Equipamento Dismac a ser mostrado na 
Feira, para processamento distribuído. 
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PARA AGRÔNOMOS, TOPÓGRAFOS E TÉCNICOS AGRÍCOLAS 
ACABOU AQUELE SERVIÇO CHATO DE CALCULAR PLANILHAS! 

A INFORMÁTICA DINÂMICA APRESENTA... 

AGRIMENSOR 

Planilha de cálculo analítico 

* Aceita ângulos, distâncias e primeiro azimute. 

* Faz compensação de ângulos e projeções. 

* Calcula a área em poucos segundos. 

* Mostra todas as colunas de cálculo. 

* Imprime planilha completa em impressora. 

* Imprime croquis da área (TK 2000 e Apple). 

* Gravado em fita Cromo p/eliminar problemas de carregamento 


ORTN 


Preços de lançamento: 

Linha Sinclair (TK83/16K, TK85, CP200, etc.) (fita) 
TK 2000 e APPLE II PLUS (com croquis) (fita) 

TK 2000 e APPLE II PLUS (com croquis) (disco) 


Pagamento com pedido (despacho imediato) ou por reembolso com 10% de acréscimo. 



BLOCO "PRINT E PLOT" 

Agora é fácil conseguir aquele "layout" 
profissional nos seus programas para 
micros da linha SINCLAIR (TK83, 

TK85, CP200, RINGO, etc.) 

Você cria o vídeo no papel, e depois 
transfere as coordenadas para o 
programa. 

100 páginas de formulários, com área 
para PRINT (22 X 32) e área para PLOT 
(44 X 64) em cada página. 

Preços de lançamento: 


ff 

lÜüli 


; ! j, i 
j iiiijhlii | 

SLdm 


■ 


i^Ui 



GRÁFICOS V 

PROFISSIONAIS ^ 

NO SEU COMPUTADOR | 

TK 83 85 
CP 200 

E OUTROS DE LÓGICA SINCLAIR 




I d 


BLOCO 

“PRINT E PLOT” 


Um Bloco PRINT E PLOT 
Três Blocos 


- 0,5 ORTN 

- 1,0 ORTN 


Pagamento com pedido (despacho imediato) ou por reembolso com 10% de acréscimo. 


Envie seu pedido para: 

Informática Dinâmica Ltda 



Telefone: (055) 512-2819 

Rua Minas Gerais, 56 — CEP. 98900 — Santa Rosa — RS 

CONDIÇÕES ESPECIAIS PARA REVENDEDORES 
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Curso Avançado de 
Assembly para o 
TK 83/85 


Lição 1 


Flávio Rossini 

Iniciando agora uma nova fase, este curso pretende 
abordar a linguagem de máquina para o TK 82/83 e TK-85 
num nível mais avançado, dando continuidade ao curso que se 
encerrou na última edição. Vamos agora estudar a organiza¬ 
ção da memória ROM e RAM do TK, para que possamos uti¬ 
lizar nos nossos programas em linguagem de máquina algu¬ 
mas sub-rotinas já existentes na memória ROM. 

O TK-82/83 possui os primeiros 8 k de memória ROM 
(o TK-85 tem os primeiros 10 K de ROM), onde está contido 
um programa em linguagem de máquina que consta de várias 
sub-rotinas; por exemplo, cada comando do BASIC corres¬ 
ponde a uma sub-rotina que está na ROM. Estas sub-rotinas 
fazem parte do programa interpretador. 

A memória ROM 

Supondo o TK com extensão de 16 K de memória, te¬ 
remos memória ROM do endereço '0000' até '1FFF' (0 até 
8191), e memória RAM do endereço '4000' até 7FFF' (16384 
até 32767). Você pode verificar que, de fato, temos 8 K de 
ROM (8191 -0+1=8192) e 16 K de RAM (32767-16384+1 
= 16384), pois, em computação, cada K é contado como 
sendo 1024 bytes (figura 1). 



Você deve se lembrar que no início do curso, quando 
verificamos o valor de RAMTOP, este era, de fato, 32768, ou 
seja, o primeiro após o "último byte da RAM" (32768—'8000'). 
Vimos também que a memória poderia ir de 0 até 65535 ('0000' 
a 'FFFF') e que, portanto, no esquema da figura 1 existem 
alguns "espaços" que poderiam ser preenchidos com memó¬ 
ria RAM. E o que, de fato, acontece quando você coloca a 
expansão de 64K. 

Vamos apresentar o endereço em hexadecimal de al¬ 
gumas sub-rotinas que estão na ROM. Note, entretanto, que 
um estudo completo do programa da ROM foge aos objetivos 
deste curso e, portanto, ele será explicado aqui minuciosa¬ 


mente. 

'0808'.rotina para colocar um caractere na tela 

'03C3'.NEW 

'0730'.LIST 

'0A2A'.CLS 

'OEAF'.RUN 


Assim, por exemplo, usando HEXAMEM, coloque a 
partir da memória 30000 o seguinte: 



3 0 00 0 C RíLL R U N C D Ri F 0 E 
30003 RET CS 


Após colocar P, o programa pára. Vamos reiniciá-lo, 
mas, ao invés de fazer RUN, faça RAND USR 30000 (coman¬ 
do direto) e NEW UNE ... O programa começa novamente. 
Vamos então colocar os comandos LIST, CLS e NEW nas me¬ 
mórias seguintes; faça memória inicial = 30004 e coloque: 


3000 + 
30007 

CRfLL 

RET 

LXZT 

CD3007 
C 9 

30008 

30011 

CRL_ 

RET 

: l 5 

C D 2 H 0 R 
C 9 

30012 

30015 

CRLi_ 

RET 

NE U 

C D C 3 0 3 
C 9 


Em outras palavras, cada "chamada de sub-rotina" 
executará as ordens existentes na ROM correspondentes a 
cada comando. Para exemplificar, execute o seguinte progra¬ 
ma "auto-explicativo": 


10 

REM * + 

- ■, 

rlc: 

- 

CP c 

- 

- p 

0 

M r- - 

15 

20 

SLÜU 

PRIWT 


PR: 

ri 

ri N i~i 

5 

E R 

DTO- 

; ST R OI" 









25 

PRINT 

:! CCMRND 

o 

CL 

5 i! 




3R 

RRINT 








R TE 

40 

PRINT 

H N 

TE r 

r. 

E R 

PR 

CRR 


i UM Ri MENS 

RiC-5 

r-r 







45 

RRINT 









50 

RRINT 

’ ’ H L. 

L 

- 

* 

5C 

IS 


LüUE 

“ =; 

PP USE 

120 








50 

RR ND U 

5 K 

3000 

f 






70 

RRINT 

:: C C 

MRND 

c 

NE 

Ü" 




“7 =: 

RRINT 




í 





50 

RRINT 

:: RD 

EU 5 , 


. 3 N 

I* 

, 3 N 

I 

— • : 

35 

RRUSE 

ç C 








90 

RR ND _ 

f - 
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Agora tente modificar o programa acrescentando a 
chamada da sub-rotina LIST (memória 30004), ou então use o 
comando direto RAND USR 30004. A rotina que coloca um 
caractere na tela (endereço '0808') será utilizada em aulas 
futuras. 

A memória RAM 


16396 e 16397); assim a primeira posição da tela pode ser 
achada por PRINT PEEK 16396 -I- 256 * PEEK 16397 + 1. 

Cada instrução do programa em BASIC, ocupa 2 bytes 
para armazenar o número da linha, 2 bytes para colocar o "ta¬ 
manho da instrução", a instrução em si e no fim um NEW-LI- 
NE (figura 3). 


2 bytes 

2 bytes 


118 ou 76' 



n?da linha tamanho texto NEW LINE 

incluindo 
NEW LINE 


Figura 3 


Como sabemos, na memória RAM o programa inter¬ 
pretador não pode armazenar suas variáveis. Desse modo ele 
utiliza o começo da RAM, mais precisamente, as memórias 
entre 16384 e 16509. Algumas dessas variáveis já foram vistas 
em aulas anteriores, como é o caso da RAMTOP (16388 e 
16389), D-FILE (16396 e 16397) e o número da linha para a 
instrução PRINT (16442). Note que todos os 'endereços' estão 
entre 16384 e 16509; no manual do TK você pode encontrar a 
lista das principais variáveis usadas pelo programa interpreta¬ 
dor. Vamos aprender agora mais algumas variáveis e, para 
entender para que elas servem, façamos um esquema mais 
detalhado da memória RAM (figura 2). 


16384- 

16509-i 

D FILE — 

VARS - 

E-LINE— 

STKBOT^ 

STKEND- 
SP - 

ERR-SP-h 

RAMTOP 


Variáveis do 
programa interpretador 


Programa 

(BASIC) 


Memória da tela 
(TV) 


Variáveis 


Linha sendo digitada 
+ espaço de trabalho 


STACK do 
calculador 


Reserva 


STACK do 
microprocessador 


STACK 

GOSUB 


por exemplo, D-FILE, 
RAMTOP, etc. 


byte contendo '80' 


Figura 2 


Assim, se sua primeira linha do programa for: 



o código de REM estará na memória 16513 (16509-1-4, pois o 
número da linha está nas memórias 16511 e 16512), a letra B 
estará na memória 16514 e assim por diante, sendo que na 
memória 16521 estará um código de NEW-LINE. Qual seria 
nesse caso o valor de D-FILE? 

Após a tela de TV, ficam as variáveis utilizadas pelo 
programa em BASIC. O endereço inicial desta região é dado 
por VARS (16400 e 16401). 

Após as variáveis, há um byte de fronteira contendo 
sempre o valor '80'; a seguir, vem uma região onde fica a linha 
que está sendo digitada. O endereço inicial desta região é 
dado por E-LINE. Temos então uma região usada pelo STACK 
do calculador que faz as contas do BASIC. Essa região é es¬ 
sencial para que possam ser feitas as contas e não entrare¬ 
mos em detalhes sobre seu funcionamento. Esse STACK não 
tem nada a ver com o STACK-POINTER do microprocessa¬ 
dor. De fato, o STACK-POINTER é também indicado no es¬ 
quema por SP e tem o seu "campo-de-trabalho" limitado en¬ 
tre STKEND e ERR-SP, enquanto que o stack do calculador 
fica entrè STKBOT e STKEND. Como em BASIC também 
podemos ter sub-rotinas, é necessário usar o mesmo truque 
do STACK-POINTER do microprocessador para guardar os 
endereços de retorno. Eles são colocados no final da memória 
RAM entre ERR-SP e RAMTOP. Você sabe o que acontece 
quando se altera o valor da RAMTOP? O TK "pensa" que tem 
a sua memória reduzida e procura "espremer" toda a memó¬ 
ria RAM e nunca irá incomodar o que fica após RAMTOP. 

Você deve estar lembrado quando falamos que, a 
RAMTOP para colocar o programa em linguagem de máqui¬ 
na, este não era afetado pelo NEW mas também não poderia 
ser "gravado" em fita usando SAVE, pois o computador ar¬ 
mazena em fita apenas as partes do programa RAM corres¬ 
pondentes ao programa em BASIC, a tela e suas variáveis. 
Vamos ver então outros lugares para colocar nossas sub-ro¬ 
tinas em linguagens de máquina, sem ser após RAMTOP. 

Outro lugar para colocar os programas em linguagem 
de máquina: 


Como podemos ver na figura 2, as variáveis do pro¬ 
grama interpretador estão entre as memórias 16384 e 16509 
inclusive. Entre essas variáveis estão D-FILE (16396 e 16397), 
VARS (16400 e 16401), E-LINE (16404 e 16405), STKBOT 
(16410 e 16411), STKEND (16412 e 16413), ERR-SP (16386 e 
16387) e RAMTOP que servem para indicar as "fronteiras" 
existentes na memória RAM. O programa em BASIC começa 
sempre na memória 16509, mas todas as demais regiões têm 
seus endereços iniciais "variáveis", sendo estes calculados 
pelo programa interpretador e colocados no início da memória 
RAM, nas respectivas variáveis. Assim, se você, por exemplo, 
acrescentar uma linha ao programa em BASIC todos os ende¬ 
reços das fronteiras serão movidos "para baixo", deslocan¬ 
do-se obviamente o conteúdo de cada região. 

Logo depois do programa em BASIC fica o conteúdo 
da tela de TV, colocado a partir de um endereço dado por 
D-FILE (que está no início da memória RAM nos endereços 


A instrução REM 

Como sabemos, a instrução REM em BASIC não exe¬ 
cuta nenhum comando; assim ela é um bom lugar para se co¬ 
locar um programa em linguagem de máquina se desejarmos 
armazená-lo em fita. Mas cuidado, ele também será apagado 
ao digitar NEW. Assim, se você tiver um programa que ocupa 
60 bytes, basta colocar a primeira instrução do programa co¬ 
mo sendo: 

1 REM ???-K + + 60 caracteres quaisquer + + -*-??? 

Não importa quais sejam os caracteres, pois eles serão 
substituídos pelos que correspondem a seu programa em lin¬ 
guagem de máquina; no entanto, é conveniente usar os nú¬ 
meros de 0 a 9 em seqüência várias vezes para facilitar a 
contagem: 
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Assim, se quisermos colocar numa REM o seguinte 
programa: 

LD B/FF '06FF' 

LD C,B '48' 

RET 'C9' 


teremos que fazer primeiramente, 


M 012 3 (pois o programa tem 4 bytes) 


para reservar espaço na memória. 

Ora, qual o endereço do número 0 na instrução REM? 
Como vimos ha pouco, este número está na memória 16514, 
o número 1 na memória 16515 e assim por diante . . . 

Faça então: 


POKE 16514,6 
POKE 16515,255 
POKE 16516,72 
POKE 16517,201 


NEW UNE (06 LDB,) 

NEW UNE (255 = TF) 

NEW UNE (72 + '48') ( = LD C,B) 
NEW UNE (201 = 'C9') ( = RET) 


LIST 


O que aconteceu com a instrução REM? Basta olhar a 
tabela de caracteres no manual do TK e verificar que o carac¬ 
tere correspondente a '06' é 0 , a TF' é COPY, a '48' não 
existe, aparecendo portanto um ?, e a 'C9' é TAN. 

Obviamente você poderia "construir" este REM direta¬ 
mente, mas teria que reservar espaço para o terceiro caracte¬ 
re, pois ele não tem "caractere TK" correspondente. A seguir, 
fazer POKE 16516,72. Além do mais, para conseguir o COPY, 
sendo este uma "key-word", você deve fazer THEN COPY e 
em seguida retirar o THEN. 

1? passo: 1 REM THEN CQR v 8 

2? passo: 1 REM ** COPY 8 

3? passo: _ REM Y COPY , 7RM 8 


POKE 16519,118018 = 76') 

LIST 

Observe que apareceu uma linha (8739) que na reali¬ 
dade NÃO existe. Ela faz parte da linha 1. Verifique isto mo¬ 
vendo o cursor (se houver outras linhas de programa). Isto 
acontece pois você está colocando um código de NEW LINE, 
fazendo com que o computador "pense" que terminou a linha 
1 causando a divisão da linha na tela. Mas, como acabamos de 
ver, no começo da linha na memória do programa, os primei¬ 
ros dois bytes armazenam o número da linha e os próximos 
dois p comprimento da mesma. Assim, apesar de desapare¬ 
cerem duas linhas da listagem, serão consideradas uma só 
pelo programa. Note que o número 118 (76') fica "invisível" 
na listagem . . . 

Entretanto há um pequeno problema: se você quiser 
alterar a "segunda parte" da linha, a solução não é trivial. 
Tente colocar o cursor na linha 1 e trazê-la para a região da 
edição usando EDIT ... a segunda parte NAO DESCE. Por¬ 
tanto, antes de fazer isto, faça um POKE anulando "tempo¬ 
rariamente" o NEW LINE: 

POKE 16519,6 (poderia ser qualquer coisa menos 76' 

ou 7E') 

LIST 

aparece o caractere m no lugar de NEW LINE. Agora você 
pode trazer a linha para baixo, efetuar as alterações necessá¬ 
rias e, após colocá-la novamente na parte superior da tela, 
refazer: 

POKE 16519,118 

Com relação ao 7E', muito cuidado deve ser tomado. 
Suponha que você havia reservado um espaço para a sua ins¬ 
trução REM e, após colocar o programa, você nota que deve 
acrescentar mais alguns bytes ou eventualmente tirar alguns 
bytes do final, porque eles "sobraram". Se o número 7E' não 
estiver na instrução REM, você pode utilizar EDIT e colocar, 
ou retirar, quantos bytes você quiser. Mas, se o número 7E' 
estiver na instrução NÃO use EDIT! Na listagem, o número 
7E' é "invisível" e os 5 bytes que o seguem também o são, 
apesar de estarem na memória. Se você usar EDIT, esses 6 
bytes irão "sumir" e você os perderá para sempre . . . Agora 
faça: 


e a seguir: 


(o ponto serve para reservar lugar) 


A seguir, basta "mandar a linha para cima" e fazer 
POKE 16516,72. Vamos executar o programa? Ora, basta 
fazer: 

PRINTUSR 16514 

e, como esperado, iremos obter 65535! CFFFF') 

Naturalmente, se o programa for longo, estes métodos 
não são aconselháveis e você pode usar o HEXAMEM, indi¬ 
cando como endereço inicial a memória 16514. Não se esque¬ 
ça de reservar as memórias com o REM. Obviamente, neste 
caso, você pode retirar da linha 30 do HEXAMEM a mensa¬ 
gem que diz que a memória deve ser maior ou igual a 30000. 

Antes de prosseguirmos, são necessários alguns co¬ 
mentários com relação à estrutura da instrução REM. Exis¬ 
tem dois números que podem causar algumas "dores de ca¬ 
beças" se tiverem que ser introduzidos numa instrução REM, 
que são 76' e 7E'. O primeiro deles não causa conseqüên- 
cias desastrosas, apenas irá confundir um pouco a listagem do 
seu programa, pois 76' é o código de NEW-LINE (note, en¬ 
tretanto que este também o código de HALT. Assim, o único 
meio de aparecer 76' numa instrução de REM é como sendo 
dado ou parte de um endereço ). Experimente colocar no com¬ 
putador uma instrução REM, por exemplo: 



efaça: 


POKE 16514,126 (126 = 7E') 

LIST 

Veja que os números 0, 1,2, 3, 4, 5, 6, 7, 8 e 9 estão in¬ 
visíveis . . . Feito isto, vamos fazê-los reaparecer: 

POKE 16514,6 

LIST 

Façamos então novamente: 

POKE 16514,126 

e em seguida, um EDIT para fazer a linha para baixo. Colo¬ 
que-a novamente no programa (basta apertar NEW LINE) e, 
em seguida, faça outra vez: 

POKE 16514,6 

LIST 

Como era esperado, os 6 bytes desapareceram . . . 

Isto acontece porque o programa interpretador utiliza 
este número (7E') para tornar as listagens "apresentáveis" 
quando aparecer números do programa em BASIC. Não nos 
interessa muito os detalhes do "porquê", pois isto implica¬ 
ria num estudo mais profundo da ROM. 

O que importa é como fazer para aumentar a REM se 
necessário. A idéia seria colocar uma linha 2 com outro REM e 
tentar "juntá-las", mas há um outro probleminha: como vi¬ 
mos anteriormente, cada linha de programa usa os primeiros 
2 bytes para colocar o número de linha, em seguida mais 2 
bytes invisíveis para a listagem onde está armazenado o com¬ 
primento da linha. Assim, se você tentar retirar o NEW LINE 
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da primeira para tentar juntá-la, o programa interpretador con¬ 
tinuará tentando interpretar a linha 2 do mesmo ponto, devido 
aos 2 bytes da linha 1 que dizem seu comprimento. Assim, 
devemos alterar também esses 2 bytes. Um bom método 
então para aumentar a linha 1, se ela contiver o byte 7E', con¬ 
siste no seguinte: 

a) introduza uma linha 2 REM mais um número de caracteres 
suficientes para aumentar seu programa. 

b) coloque o seguinte programa que fará os "cálculos" ne¬ 
cessários (não colocaremos os números das linhas, pois você 
deve colocá-los onde for mais conveniente de maneira a não 
estragar eventual programa que já esteja na memória): 


Perceba: em C, colocamos o comprimento da primeira 
linha; a seguir em X colocamos o endereço em que está o 
"comprimento" da segunda linha. Com isto, podemos então 
calcular o comprimento total das 2 linhas; a seguir modifica¬ 
remos os bytes da linha 1 para que eles agora contenham o 
comprimento total. 

Após executar este programa, você poderá retirá-lo se 
quiser. Agora a linha 2 faz parte da linha 1, apesar de, na lis¬ 
tagem, elas permanecerem ainda separadas, porque o NEW 
LI NE final da linha 1 ainda está Já. Você pode verificar isto ten¬ 
tando mover o cursor (MAS NÃO EDITE A LINHA. Lembre-se 
do 7E'). Se você quiser retirar este NEW LINE, ou melhor, 
substituí-lo por qualquer outro caractere que torne as coi¬ 
sas mais "visíveis", basta fazer: 

POKE (C + 16512),6 (ou outro caractere "visível" 

qualquer) 

comprimento da antiga linha 1 

Se você quiser diminuir o tamanho da REM, deve fazer 
o seguinte: 

(este programa reduz no MÍNIMO 6 bytes; por quê?) 


LE T ' X = ENDEREÇO DO ULTIMO BYTE 
QUE UOCE QUER RRE5ERURR 
LET Y=X-15511 

LET 2 =REEK 15511+256*PEEK 15512- 
Y-4. 

P0KE 16511:Y-256*1NTl2 56) 

P0K E 15512:1NT £Y/2 55) 

POKE X* 1..115 
POKE X+2.0 
POKE X+3:2 

P0 KE X * L:Z-2 5 6 * INT £Z/255) 

P OKE X + 5.1NT l Z/255) 

ST OP 


As primeiras duas linhas calculam o "novo compri 
mento" que é colocado em Y, e em Z colocamos o tamanho 
de uma nova linha 2 que será criada; a seguir, colocamos o 
novo comprimento nos respectivos bytes e "criamos" a linha 
2, colocando na memória o número da linha e o tamanho. Ao 
executar o programa aparecerá uma nova linha 2 que deverá 
ser retirada . . . 

Como você pode perceber, a REM tem suas vantagens 
(por permitir SAVE), mas também tem seus inconvenientes 
(76' e 7E'); a escolha de onde colocar um programa em lin¬ 
guagem de máquina dependerá de cada caso e de sua pre¬ 
ferência. 


Exercícios 

1. Para recordar as instruções, faça um programa que, 
por subtrações sucessivas, calcule o quociente e o resto de um 
número que está no par DE por um número que está no regis¬ 
tro L, deixando a resposta no par BC e o resto no registro H. 

2. Faça um programa em BASIC que seja capaz de 
"copiar" o conteúdo da tela em uma variável STRING. As¬ 
sim, para obter o conteúdo da tela copiado, bastará fazer um 
PRINT "variável STRING que contém a tela". 

Sugestão: Você sabe o endereço da tela (D-FILE) e o 
das variáveis (VARS). Faça um "CLEAR" para garantir que 
sua variável esteja no começo da região indicada por VARS e 
transfira a tela para a primeira variável que estiver nessa re¬ 
gião. Lembre-se que a variável deverá ser STRING . . . 

3. Um bom truque para colocar nomes em seus pro¬ 
gramas de maneira que ninguém possa retirá-los é colocar 
uma linha 0 com o seu nome. Para isto, basta fazer: 


NEW LINE, e a seguir: 

POKE 16510,0 
NEW LINE 
NEW LINE 

Tente agora apagar, ou alterar, a linha 0 que apareceu 
usando os métodos "convencionais". Pergunta-se: 

a) Porque a linha 0 aparece no lugar da linha 1 ? 

b) Como posso retirá-la? 

c) Como posso criar mais linhas 0? 

d) Eu poderia criar duas ou mais linhas número 1, ou qualquer 
outro número? Como? Neste caso, o que ocorre se eu tiver 3 
linhas número 1 e eu fizer GOTO 1 ou LIST 1? 


LANÇAMENTO 

Terminal com 
teclado profissional 
tecnologia ITT 
compatível com toda 
linha Sinclair NE e TK. 
Teclado com feed-back 
táctil com todas as 
funções gravadas na 
própria tecla. Caixa em ABS expandido 6 mm de 
espessura pronta para receber seu micro 
computador com todas as interligações instaladas. 
Acompanha manual para montagem com opções 
de fixação da fonte internamente ou usando 
externamente. 

Saidas: Expansão memória/impressora 
Fonte externa ou interna 
Rede 

Gravação EAR/MIC 
Chave Liga/Desliga 
Chave 110/220 Vac 
Joystick 

INTER-COL IND. E COM. LTDA. 

Depto. Vendas - Av. Alda, 805 • Diadema (Centro) 
fone: 456.3011 


Linha de r-auricação: 

Chaves comutadoras „ 

Teclas e teclados semi profissionais í 

Teclas e teclados profissionais 5 
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Os Software para as linhas de 
micros TK, Apple e TRS 


Ana Lúcia de Alcântara 


O levantamento do software disponível no mercado 
brasileiro que vocês verão a seguir levou em conta as empre¬ 
sas fabricantes, software house e distribuidoras. Para a reali¬ 
zação desta matéria foi elaborada uma pesquisa usando para 
isto, um questionário onde as empresas consultadas deveriam 
responder sobre os produtos desenvolvidos por elas e sua 
compatibilidade com microcomputadores das linhas Apple, 
TRS-80eTK. 

A partir daí, iniciamos a pesquisa — em julho — envol¬ 
vendo cerca de 200 empresas. Houve uma grande aceitação 
por parte das mesmas, pois o retorno ficou em torno de í40 
empresas no total. 

Se acaso neste levantamento alguma empresa esteja 
de fora, seja fabricante ou software-house, isto não se deve ao 
esquecimento, mas sim ao não retorno das informações pedi¬ 
das em tempo hábil para ser publicada. 

Esperamos alcançar as necessidades dos nossos lei¬ 
tores. 

Com os resultados obtidos percebemos o seguinte: a 
maior parte do software existente para aplicações profissio¬ 
nais destina-se aos micros das linhas TRS-80 e Apple. Os 
jogos — animados e inteligentes — em contrapartida, exis¬ 
tem em maior quantidade para os da linhas TK e o Apple. 
A classificação do software foi distribuída da seguinte 

forma: 

— Aplicações Convencionais: Folha de Pagamento, Mala- 
Direta, Faturamento, Processamento de Texto (Editores, 
etc.), Contabilidade (em geral ou específica), Contas a Pagar e 
Receber (levando em consideração as duas juntas), Controle 
de Estoque, Automação de Escritório, (agendas, follow-up, 
Friday, etc.í, Banco de Dados (sistemas gerenciadores, Base, 
etc.). Planilhas Eletrônicas (Visicalc, etc.). 

— Área de Serviços: Imobiliário (administração de imóveis, 
locação). Educacional (incluindo sistemas para ensino e para 
administração de escolas e bibliotecas), Médica (inclui-se a 
área hospitalar, clínica, odontológica etc.). Transportes e 
Hotelaria. 

— Ferramentas 

— Utilitários 

— Automação Comercial 

— Automação Industrial 

— Automação do Campo 

— Aplicativos específicos 

— Jogos: Inteligentes (incluindo educativos). Animados (in¬ 
cluindo de ação) e Geral (para a classificação das empresas 
que não discriminaram tipo de jogo). 

Discriminamos também, o modelo do equipamento 
(por exemplo, TRS-80 modelos I, II, III; Apple II, TK 83/85 e 
TK 2000). 


1 - APLICAÇÕES 
CONVENCIONAIS 

TK 

APPLE 

TRS-80 

1.1. Automação 




Escritório 




Adasis (Advocacia) 


X 

(1) 

Brascom (sist. BR 1000) 




(agendas, follow-up, 




memorandos) 


X 


BBS 


(6) 

(111-12) 

Desenvolv. Tecno. (Friday) 


X 


Humana 


X 


KYW Informática 


X 


Prológica 




(CP-200/500 - agenda) 

(CP-200) 


(III) 

S&C 


X 

X 

1.2. Banco de Dados 




Atrium (gerenciador de base) 



X 

BBS (P/TRS - Codificação 




de dados) 


(8) 

(1) 

Bianchi e Neto 



(1/111) 

Compushow 

(82/83/85) 

X 

(l/lll) 

Datalógica 




(D/Base p/CP/M) 



(l/lll) 

Digitus (DGT-1000) 



(III) 

Dismac (D8100) 


(II) 


DRL (gerenciamento) 



X 

Hengesystems (Fancy — 




gerenciamento) 


X 


Intersoft (divs. c/ Visifile, 




Visidex) 


(II) 

(l/lll) 

KYW (gerenciamento) 


X 


Microarte (Microdata l/ll 




gerenciador) 


(II) 


Microshop 

(83/85/82) 

X 

(l/ll/lll) 

Monk Micro (gerenciador) 



(l/lll) 

MultiSoft 

(83/85/82/ 




2000) 



Polymax (Maxxi) — P/ex. 




general manager 


(llplus) 


Prológica (CP-500 - 




prodados) 



(III) 

Servimec 

(82/83/85) 

(11/DOS) 


Sysdata (Sysdata 111/Jr.) 



(111-5) 
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1.3. Contabilidade 
em Geral 

TK e 

Similares 

APPLE 

TRS-80 

Anca 


X 


Apple Cursos Sist. 


(II) 


Adasis 


X 

X 

Advancing 


X 

X 

BBS 


(3) 

(111-2) 

Benny 

(82/83/85) 

X 

(II) 

Bianchi Neto 



(l/lll) 

Bit a Bit 


(II) 

(III) 

Boucinhas e Campos 




(Sist. Ger. Contab.) 


X 


Byte Shop 


X 

X 

CEDM 

(2000) 



Cespro 

(82/8°. 85) 



Científica 


X 


Ciência Moderna 

(82/83/85) 


(l/lll) 

Clap 


(II) 

X 

Comicro 


X 

X 

Compudata 

(82/83/85) 


X 

Computerhouse 

(82/83/85) 

X 

X 

ComputerWorld 


X 


CP Systems 


X 

X 

Consult 


X 

X 

Data Exec 


X 

X 

Chip Shop 


X 

X 

Brascom (sistema BR 1000) 


X 


Dataprocess 


(llplus) 


Digital 

(82/83/85) 


X 

Dismac (D8100) 


X 


DRL 



X 

Engemicro 

(82/83/85) 

X 


Elogica 



(III) 

Empr. Bras. Microlnfor. 


X 


Intelecta 


X 




TK e 

Similares 

APPLE 

TRS-80 

Intersoft 


X 


Hengesystem 


'X 


Hercos 



(III) 

JVA 

X 

X 

X 

Kemitron (Naja) 



(l/lll) 

Metasoft (p/ peq. e 




média empresa) 



(III) 

LHM 


X 


Microcenter 

X 

(II) 

X 

Microbits 

X 



Micromarques 

X 



Microsystems 



(III) 

MiniMicro 



X 

Microcomputação 


X 

X 

Monk Micro 



(l/lll) 

Multisoft 

(82/83/85) 

X 


Multrix 



(1) 

Nasajon 


X 

X 

Núcleo Aperf. Infor. 



(l/lll) 

NGW 

(82/83/85) 

X 

X 

Nova Geração (contador) 


X 


Open Systems 

X 

X 


Org. Taborda 


X 


Polymax (Maxxi) 


(llplus) 


Potencial 


(llplus) 


Prodomo 

X 



Prokura 


(llplus) 


Prológica (CP500) 



(III) 

Ramo 



X 

RitasComp (Ringo) 

X 



Sistemática 


X 

X 

Sisdata 



X 

Softscience 


X 

X 


MANUAIS 

PARATK 

Agora ficou muito mais fácil para você adquirir 
manuais para o TK. Basta assinalar os itens 
desejados, preencher o cupom abaixo e enviá-lo à 
MICROMEGA. 


□ MANUAL TÉCNICO TK 2000 color 

□ MANUAL DE OPERAÇÕES TK 2000 color 

□ MANUAL DE OPERAÇÕES TK 83 

□ MANUAL DE OPERAÇÕES TK 85 


Cr$ 18.850,00 
Cr$ 9.850,00 
Cr$ 6.850,00 
Cr$ 6.850,00 


Sim, desejo receber os itens assinalados. 


NOME 

END. 

CEP 

CIDADE 

EST. 


Para tanto, anexo a importância de Cr$_ 

□ cheque nominal à MICROMEGA P.M.D. Ltda. 

Banco_□ Vale Postal 


Data: 


L 


Assinatura 


MICROMEGA P.M.D. Ltda. 

Cx. Postal 54096 - CEP 01296 
São Paulo — SP 
CGC 52.275.724/0001-41 
INSCR. EST. 110.862.362 


### ### 

## ### ## 
### ### 


en gemicro 

COMPUTADORES - PROGRAMAS - SERVIÇOS 


Soluções profissionais em 
microcomputadores 


para engenharia 


A Engemicro desenvolveu e está implantando sistemas que 
permitem a obtenção de resultados profissionais na utilização de 
microcomputadores em engenharia, topografia e administração. 


Cálculo de Estruturas 

• Cálculo de esforços, 
Dimensionamento e 
Detalhamento de 
Vigas Contínuas 

• Pórtico e Treliça 
Plana 

• Grelha Plana 

• Treliça Espacial 

• Estaqueamento Plano 
— Espacial 


• Viga-Coluna Não 
Linear 

• Flexão Composta 
Oblíqua 

Hidráulica 

• Rede de Água 

• Rede de Esgoto 
Topografia 

• Cálculo de Poligonais 

• Cálculo de Volumes 
entre Superfícies 


Administração de 
Obras 

•Orçamento na 
Construção 

• Otimização no Corte 
de Barras de Ferro na 
Construção Civil 

Administração 

• Contábil 

• Financeira 

• Geral 

• Pessoal 


Revendedor Autorizado: — Unitron—Globus — Polymax 
Análise de Sistemas de Grande Porte 
Comunicação entre Micros: Transmissão de Arquivos 
Consultoria em compras 


Engemicro Comércio e Representações Ltda. 

Av. Prof. Alfonso Bovero, 621 — S. Paulo — SP 
CEP 05019 - Tels. 872-5257 - 872-0854 


MICROHOBBY 49 














































TKe 

Similares 

APPLE 

TRS-80 

Servimec 


(DOS) 

(l/lll) 

S&C 


X 


Suporte 


X 


Software CCS (On line) 


(llplus) 


Tec 



X 

Unitron (Ap II) 


(II) 


1.4. Contas a Pagar 




Aprodata 


X 

X 

Apple Cursos Sist. 


(llplus) 


Advancing 


X 

X 

Bianchi 



(l/lll) 

Brascom (Sist. BR 1000) 




BBS 


(3) 

(111-7) 

Byte Shop 



X 

Científica 


X 


Compudata 

X 


X 

Compumídia 


X 


ComputerWorld 


X 


CP Systems 



(II) 

Consult 


X 

X 

Dismac (D8100) 


X 


DRL 



X 

Elógica 



(III) 

Fancy 


X 


Hercos 



(III) 

Hengesystem 


X 


Hospserv 


X 


Intelecta 


X 


Intersoft 


(II) 

(l/lll) 

Kemitron 



(III) 

LHM 


X 


Interface 


X 


Libra 


X 


Micromarques 

X 



Micron 

X 



Monk Micro 


(II) 

(l/lll) 

Link 



X 

Microsystem 



X 

Microcomputação 


X 

X 

Multisoft 

(82/83/85 




2000) 



Nasajon 



X 

Núcleo Aperf. Infor. 



(l/lll) 

Polymax (Maxxi) 


(II) 


Processa 



X 

Prodomo 

X 



Potencial 


X 


Ramo 



X 

Servimec 

X 

(11/DOS) 


Sigma 



X 

SIL 



X 

Sistemática 


X 

X 

Suporte 


X 


Tec Comp 



X 

Zap 


X 

(l/lll) 

1.5. Controle Estoque 




Advancing 


X 

X 

Apple Cursos Sist. 




(Cart. Pedidos) 


(2) 


BBS 


(2) 

(111-4) 

Bianchi 8- Neto 



(l/lll) 

Byte Shop 



(1) 

Brascom (Sist. BR 1000) 


X 


Científica 


X 


Compudata 

X 



Consult 


X 

X 

ComputerWorld 


X 


Digitus (DGT1000) 



(III) 

Dismac (D8100) 


(II) 




TKe 

Similares 

APPLE 

TRS-80 

Disoft 


X 


DRL 



X 

Elógica 



(III) 

Fancy 


(II) 


Hercos 



(III) 

Hengesystems 


X 

X 

Hospserv 


X 


Intersoft 


X 

X 

Infotec 

X 

X 

(III) 

Kemitron (Naja) 



(III) 

Libra 


X 


Livraria Cultura 


X 


MicroMarques 

X 



Microtecla 


X 

X 

Microcomputação 


X 

X 

Multisoft 

(82/83/85 




2000) 

X 


Microsystem 



X 

Nasajon 


X 

X 

Núcleo Apoio à Infor. 



(l/lll) 

Nova Geração 


X 


Prodomo 

X 



Polymax (Maxxi) 


(llplus) 


Potencial (Macroestoque) 


(llplus/lle) 


Prológica (CP500/200) 

X 


(III) 

PSI 



(DOS) 

Ramo 



X 

Servimec 

X 

(DOS/II) 


Sisdata 



(III) 

SOS 



X 

Sistemática 


X 

X 

Suporte 


X 


Sysdata (JR/III) 



(l/lll) 

Zap 


X 

(l/lll) 

1.6. Faturamento 




Adespro 


X 


Advancing 


X 

X 

Anca 


X 


Aprodata 


X 

X 

BBS (Emissão notas fiscais) 



(III) 

Brascom (Sistema BR 1000) 


X 


Benny 

X 

X 

X 

Bit a Bit 


X 

X 

Bianchi & Neto 



X 

Chip Shop 


X 

X 

Científica Informática 


X 


Computer World 


X 


Copec 


X 


Consult 


X 

X 

Disoft (Fat. de leasing) 


X 


Dataprocess 


(llplus) 


Dismac (D8100) 


(II) 


Drevfus Crespin 



X 

Elógica 



(III) 

Libra 


X 


Madison 

X 

X 


Microbits 

X 


(1) 

Microcenter 


(II) 


Micromarques 

X 


(1) 

Microcomputação 


X 

X 

Micro-Rei 



X 

Microsvstem 



X 

Livraria Cultura 


X 


Intersoft 


(II) 

X 

Núcleo Apoio à Infor. 



(l/lll) 

Nova Geração (Fat. de 




Serviços) 


X 


NGW 

X 

X 

(1) 

Open System 

X 

X 

(1) 

Polimicro 

X 



Prokura 


X 
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TK e 

Similares 

APPLE 

TRS-80 

Microsystem 



X 

Monk Micro 



(l/lll) 

Nasajon 



X 

Nova Geração 


X 


Núcleo Aperf. Infor. 



(l/lll) 

Organização Taborda 


X 


Polymax 


(llplus) 


Potencial (o V2-0) 


X 


Prodomo 

X 



Ramo 



X 

Servimec 

X 

(DOS/II) 


SIL 



X 

Sisdata 



X 

Sistemática 


X 

X 

SOS 



X 

Sysdata (JR/III) 



(l/lll) 

Tec Computadores 



X 

Zap 


(II) 

(l/lll) 

Unitron (Apll) 


(II) 


1.8. Mala-Direta 




Aprodata 


X 

X 

Apple Cursos e Sistemas 


(II) 


BBS 


(2) 

(111-4) 

Byte Shop 



X 

Compudata 

X 


(1) 

Compute 


X 


CP Systems 


X X 


Dataprocess 


(llplus) 


Elógica 



(III) 

Erkla 


X 


Fancy 


(II) 


Engemicro 

X 

X 




TK e 

Similares 

APPLE 

TRS-80 

Ramo 



X 

Sistemática 


X 

X 

Suporte 


X 


Spress 



(1) 

Sisec 



(1) 

SIL 



X 

Servimec 


(DOS) 

(l/lll) 

Victori 


X 

X 

Zap 


X 

X 

1.7. Folha Pagamento 




Adasis 


X 

X 

Advancing 



X 

Byte Shop 



X 

BBS 


X 

(III) 

Brascom (sistema BR 1000) 


(II) 


Científica 


X 


Compudata 

X 



CP Systems 



(III) 

Consult 


X 

X 

Data Shopping 


X 


Dismac (D8100) 


(II) 


Disoft 


X 


Elógica 



(III) 

Empresa Bras. Microinfor. 


X 


Hengesystems 


(II) 


Hercos 



(III) 

Intersoft 


(II) 

X 

Know How 

X 

X 

X 

MC Consultoria 


(II) 


Micromarques 

X 



Microcomputação 


X 

X 


Como Colaborar com 
Microhobby 


Temos recebido várias cartas de 
pessoas interessadas em colaborar co¬ 
nosco, perguntando quais os critérios 
para publicação. Embora tenhamos usa¬ 
do, várias vezes, um anúncio da casa 
onde indicávamos como colaborar com 
Microhobby, resolvemos colocar neste 
número novas regras, de maneira a nos 
organizarmos melhor, garantindo tanto 
os interesses dos leitores, como os da 
revista Microhobby. 

Assim, colocaremos algumas re¬ 
gras, que entrarão em vigor a partir des¬ 
ta publicação. As colaborações recebi¬ 
das anteriormente serão analisadas, 
uma a uma, e entraremos em contato 
com os autores oportunamente. 

Assim, ficam estabelecidas as se¬ 
guintes regras: 

a) Os autores que enviarem cola¬ 
borações para Microhobby aceitam es¬ 
tas regras em carta anexa ao artigo. 

b) Uma vez recebida a colabora¬ 
ção, fica implícito que seu autor auto¬ 
riza a publicação de seu artigo. 

c) Os artigos passarão por uma 

_ _ 


triagem e os autores dos artigos aceitos 
receberão uma comunicação onde cons¬ 
tará: valor da remuneração estabelecido 
pela redação, segundo seus critérios; 
um contrato de seção de direitos auto¬ 
rais que deverá ser assinado e devolvido 
à redação dentro de, no máximo, 10 dias. 
Qualquer discordância dos termos deve¬ 
rá ser comunicada neste período. 

d) O pagamento será efetuado 
após a publicação do artigo, desde que 
o contrato tenha sido assinado. Caso o 
artigo já tiver sido publicado, o autor po¬ 
derá assinar o contrato no momento do 
pagamento. 

e) Os artigos não aceitos serão de¬ 
volvidos aos autores (inclusive material 
anexo: fitas e listagens). 

f) Os artigos e programas remune¬ 
rados serão considerados propriedade 
da Micromega PM D Ltda., podendo es¬ 
ta fazer o uso que lhe convier (inclusive 
não publicá-lo). 

g) As colaborações poderão ser: 

1) Artigo sobre assuntos relativos à 
Informática de um modo geral; 


2) Artigos sobre computadores de 
uma das seguintes linhas: TK 83/85, TK 
2000, Apple, TRS-80 ou seus compatí¬ 
veis. 

3) Programas para estas mesmas li¬ 
nhas. Junto com a listagem do progra¬ 
ma deverá vir um texto explicativo so¬ 
bre o funcionamento do mesmo, utili¬ 
zação, detalhamento, ou o que mais o 
autor achar conveniente. O computador 
utilizado deverá estar claramente indi¬ 
cado. 

h) Programas acompanhados por 
fitas serão mais facilmente analisados. 

i) O texto dos artigos ou progra¬ 
mas deverão vir datilografados ou, pelo 
menos, escritos com letra legível. 

j) Os autores asseguram a originali¬ 
dade do texto e dos programas. As fon¬ 
tes deverão ser citadas. 

Estes são os regulamentos. Toda¬ 
via, quando seu autor manifestar-se ex¬ 
pressamente por carta, poderemos estu¬ 
dar alterações, desde que sejam conve¬ 
nientes para ambas as partes. 

___ J 
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TKe 

Similares 

APPLE 

TRS-80 

Hengesystems 


X 


Intersoft 


(II) 

(l/lll) 

Kemitron (Naja) 



(III) 

Dismac (D8100) 


(II) 


LHM 


(II) 


Micromarques 

X 



MicroNews 



X 

Microsystem 



X 

Multisoft 

(82/83/85 




2000) 



Monk Micro 


X 

(l/lll) 

Nasajon 



X 

Nova Geração 


X 


Prodomo 

X 



Polymax (Maxxi) 


(llplus) 


Potencial" 


X 


Prológica (CP/500) 



(III) 

Ramo 



X 

Servimec 


(DOS/II) 


SIL 



X 

Sistemática 


X 

X 

Stol 


X 


Suporte 


X 


Sysdata (JR/III) 



(l/lll) 

System 


(II) 


1.9. Planilhas 




Eletrônicas 




BBS - (Visicalc p/TRS) 


(3) 

(III) 

Brascom (sistema BR 1000 — 




Supercalc) 


X 


Digitus (DGT1000) 



(III) 

Microshop 

X 

X 


Monk Micro 



(l/lll) 

Polymax (Maxxi) 


(Ilplus3) 


Prológica (Procalc l/lll — 




CP/500) 



(III) 

Servimec 


(DOS) 


Sysdata (Syscalc) 



(l/lll) 

Unitron (Apll-Supervisicalc) 


(II) 


1.10. Processamento 




Texto 




BBS 


(9) 

(111-3) 

Brascom (sistema BR 1000) 


X 


Cibertron (TKWord) 

X 



CP Systems 



(II) 

Compushow 

X 

X 

X 

Dataprocess 


(llplus) 


Digitus (DGT1000) 



(III) 

Erkla 


X 


Intersoft 


(II) 

X 

Interface 


X 


LHM 


X 


Microdados 



X 

Microequipo 


(II) 


Micronews 



X 

Microshop 

X 

X 


Microarte (EDITEX III em 




português) 


(llplus) 


Monk Micro (Edtasm e 




Scripsys) 



(l/lll) 

Multisoft 

(82/83/85 




2000) 



Peek&Poke 



(1) 

Polymax (Maxxi — Magic 




Window l/ll, Easy Writer 




etc.) 


(llplus) 


Prológica (CP-500-Protexto) 



(III) 

Simicron (Simite l/ll) 



(III) 



TKe 

Similares 

APPLE 

TRS-80 

Servimec 

(82/83/85 




2000) 

X 


Spectrum (Apple llplus e 




Editex III) 


X 


Suporte 


X 


Sysdata (Sysdata JR e III — 




Sysword) 



(l/lll) 

Suporte 


X 


Teknológica (Edictus) 



(l/lll) 

Unitron (Apll — Janela 




Mágica II) 


(II) 


II - SERVIÇOS 

1.1. Escolas/Didática 




Apple Cursos Sistemas 




(Administração escolar) 


X 


BBS 


(25) 

(111-5) 

Codimex (6809 — 




LOGO/PILOT p/ crianças) 



(III) 

JVA 

X 

X 

X 

Microarte (MLOGO) 


(II) 


Microtecla (p/ Biblioteca) 


X 

X 

Novidéia 

X 



Peek & Poke 



(1) 

Perph 



(III) 

Prológica (CP-200/500) 

(14) 


(111-2) 

Polymax (Maxxi) 


(llplus) 


Potencial (Passo a Passo 




l/ll-BASIC) 


(ll/lle) 


Ramo (Ancurso p/ controle 




notas) 



X 

Servimec (MLOGO) 


(DOS) 


Softscience 



(6) 

Stol 


(4) 


Suporte (p/ Biblioteca) 


X 


Unitron (Ap II - DIC) 


X 


1.2. Engenharia 




Adespro (Adm. construtora) 


X 


Advancing 


X 

X 

BBS 


X 


Boucinhas Er Campos 




(Orçamento de obras) 


X 


Bucker 


(llplus) 

X 

Computerware (suporte 




eng* de sistemas) 


X 

X 

Desk (Eng? Industrial/ 




Química) 

X 



Engemicro (cálculo 




estru tu ral / Administração 




obras) 


X 

X 

Hengesystems (contr. 




custo obras) 


X 

X 

Infotec 

(2000) 

X 

(III) 

Kemitron (Naja — cálculo 




estrutural) 



(III) 

Monk Micro (viga contínua) 



(l/lll) 

Multisoft (Viga contínua) 

X 



Nova Geração (contr. 




financeiro obras) 


X 


Prokura 



(111-4) 

Ramo 



(2) 

S&C 


X 

X 

Siviero 



X 

Suporte 


X 

X 

1.3. Financeira 




Adespro (distrib. valores) 


X 


Advancing 


X 

X 
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TKe 

Similares 

APPLE 

TRS-80 

Alta 


(6) 


Atrium (Análise fin. de 




empresas) 


X 


Aprodata (Ativo-fixo) 


X 

X 

BBS 


(2) 

(111-52) 

Boucinhas & Campos 




(Anafin-análise financeira) 


X 


Científica (open. cobrança) 


X 

X 

Compudata (diversos) 

X 


(l/lll) 

Compute (Sist. f inane. 




integrado) 


X 


CP Systems 



(11-2) 

Consult (2) 


X 

X 

Data Shopping (Sisfin- 




sist. fin. contas pagar) 



X 

Dataserv (overnight) 


X 

(III) 

Dataprocess (controle 




bancário) 


(llplus) 


Disoft (Contr. finane. 




obras) 


X 


Dismac (Controle bancário 




D8100) 


(II) 


Engemicro 


X 

X 

Libra (mercado aberto de 




capitais) 


X 


Microdados 



X 

Microprocess (overnight) 


X 


Multisoft (controle 




bancário) 


(82/83/85 




2000) 


Microsystem (controle 




seguro) 



X 

Microarte (Microcálculo 




l/ID) 


(II) 


Monolith2001 (Análise 




investimento financeiro) 

X 

X 


Monk Micro (4) 



(l/lll) 

Nova Geração 


(8) 


Nasajon (tesouraria) 



X 

Proiógica (Finanças- 




Controle bancário) 

X 


(1) 

Ramo (aplicações no merc. 




financ.) 



X 

Servimec (2) 

X 

(DOS) 


SIL (diversos) 



X 

Sistemática (diversos) 


X 

X 

Sicomig (open market) 


X 


SOS (contas-correntes) 



X 

Suporte 


X 


Sysdata (RJ Sysdata/ll) 



(l/lll) 

Fluxo de caixa 



(l/lll) 

Systech (open market) 


X 


Simicron (Simiopen) 



(III) 

S & C (diversos) 


X 


Softscience (Financeiro 1) 

X 



Zap (seguradoras) 


X 

(l/lll) 

Software SDI (Finanças) 


(II) 


1.4. Hotelaria 




Compudata (controle 




reservas) 

X 


(l/lll) 

CP Systems 



(II) 

Know How 


X 

(l/lll) 

Micronews 



(1) 

Microtecla (controle de 




hóspedes) 


X 

X 

Prosistemas (Fat? reserva 




hotéis) 


X 


Suporte 


X 



LANÇAMENTO 



Você já imaginou a importância dos disquetes para o seu 

micro? 

Agora no mercado o mais recente sistema de arquivamento 

para disquetes 51/4" para seu micro. 

— Protege o disquete do pó, sol, umidade, contato, etc. 

— Facilidade no manuseio e ordenação de seus programas e 
jogos. 

— Possui índice interno (para duas faces) para que você possa 
classificar e localizar seus programas. 

— Possui visor/índice externo para ordenação e localização 
do seu conjunto de disquetes. 

— Com capacidade para 10 unidades (5 1/4"). 

— Bonito, leve, resistente, prático e de fácil locomoção. 


A venda nas melhores lojas do ramo. 



Fisco 


FORMULÁRIOS INTEGRADOS SISTEMAS 
CONSULTORIA E ORGANIZAÇÃO LTDA. 

R. Ibirapitanga, 216 — V. Pires 
Santo André - SP - CEP 09000 
Fones: 440-2674/440-5412/412-1408 


CENTRO 

PAULISTA DE 
INFORMÁTICA 

Curso de Basic^^S^o - ^ 

PROGRAMAÇÃO 

P Equipamento 
CP-500 Proiógica 

Horários: 
Manhã - Tarde - Noite 
Cursos aos Sábados 

"O mais moderno curso de BASIC 
de São Paulo" 

Instalações e material 
didático de alto nível 

Antes de optar por um curso venha conhecer 
nossas instalações e operar nossos 
microcomputadores, sem compromisso. 

Rua Humaitá, 349 — Sobreloja Cj. A 
Esquina c/ Av. Brig. Luiz Antônio 
Altura do n° 1.000 - Fone: 35-4511 
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1.5. Imobiliária 

TKe 

Similares 

APPLE 

TRS-80 

Adasis (2) 


X 

X 

Advancing 


X 

X 

Aprodata (2) 


X 

X 

Científica 


X 

X 

Compudata (3) 

X 


(l/lll) 

CP Systems 



(11-3) 

Dataprocess (administr. 




imobiliária) 


(llplus) 


Dismac (emissão contr. 




venda/compra — D8100) 


X 


Disoft (gestão de 




condomínio) 


X 


Hercos (gestão de 




lotea mentos) 


X 


Livraria Cultura 




(loteamento) 


X 


Consultoria/MC Consultoria 


(11-3) 


Metasoft (contr. 




empreendimentos 




imobiliários) 



(3) 

Microsystem administr. e 




locação de imóveis) 



X 

Monk Micro (administr. 




bens imóveis) 



(l/lll) 

Nasajon 



X 

Nova Geração (gestão de 




condomínios) 


X 


Servimec (administr. 




imobiliária) 


(DOS) 


Sistemática (2) 


X 

X 

Software SDI 


(II) 


Suporte 


X 


1.6. Médica/Hospitalar/ 




Odontológica 




Advancing 


X 

X 

Apple Cursos Sistemas 


(3) 


DB (Clinidata — 




gerenciamento) 


X 


Dismac (D8100- 




classificçaão int. doenças) 


X 


Copec 


X 


Hercos (exames 




laboratoriais) 


X 


Hospserv (Fat? hospitais) 


X 


Matrix (7-médica) 


X 


Micro Consult (Consult 




control) 


X 


Prosistemas (gestão 




hospitalar) 


X 


Prológica (2 p/CP200 




área médica) 

X 



PSI (administr. médica) 



(DOS) 

S & C (Laboratório clínico) 


X 


SIL (conta-corrente 




hospitalar) 



X 

Sistemática (exames 




laboratóriais) 


X 

X 

Softscience 


(9) 

(11) 

Suporte (3 médica, 




1 Odontologia) 


(II) 


Systech (consultório 




médico/dentário) 


X 


Tempus (consultório 




médico/dentário) 


X 

X 

1.7. Transportes 




Advancing 


X 

X 

Hercos 


X 



III AUTOMAÇÃO 

DO CAMPO 

Algoritmo (balanceamento 




de adubo) 


(II) 


Compudata (administr. 




compra de soja) 



(l/lll) 

Compulnter (Agrícola/ 




Pecuária) 


X 


Elógica (fornecedores de 




cana por teor de sacarose) 


X 

(l/lll) 

Hospserv (formulação de 




rações p/ animais) 


X 


IV - AUTOMAÇÃO 



INDUSTRIAL 



ABC 

X 

X 

X 

BBS 


X 

X 

Boucinhas & Campos (2 - 




produção) 


X 


Computer World (2 — 




comercial) 


X 


Desk (Engenharia industrial) 

X 



Intelecta (2 - gerência e 




produção) 


X 


Livraria Cultura (custos 




industriais) 


X 


Monk Micro (2 — 




almoxarrfado) 



(l/lll) 

Ramo (explosão de materiais) 



X 

Servimec 

X 

(DOS/II) 


Sistemática (Planejamento 




e controle de produção) 


X 

X 

Suporte (Fábricas tecidos/ 




equipamentos) 


(II) 


V - AUTOMAÇÃO 



COMERCIAL 



ABC (pacotes) 

X 

X 

X 

Adespro (pesquisa de 




mercado) 



X 

Advancing (específicos) 


X 

X 

Assin (específicos) 

X 

X 

X 

BBS 



(111-11) 

Byte (emissão de recibos) 


X 

X 

Científica (cobrança) 


X 


Compudata (integrado) 



(l/lll) 

Compushow 


X 

!l/lll/color) 

Computer Hause 

X 

X 

X 

Compu mídia (gestão 




de vendas) 


(II) 


Data Shopping (tabela de 




preços p/ supermercados) 


X 


Digital 

X 


X 

Elógica (lista de preços) 



(III) 

Intelecta (ordens de compra) 


X 


Libra (cadastro) 


X 


Metasoft (representação 




comercial) 


X 


Micro kit 

X 

X 


Micronews (Crediário) 



X 

Micro shop 

X 

X 


Microcomputação (crediário) 


X 

X 

Multisoft (5) 

(83/85/ 




2000) 



Monk Micro (2) 


X 

(III) 

Nasajon (Crediário) 



X 

Núcleo Apoio à Infor. (2) 



(l/lll) 

Open Systems 

X 

(II) 

X 

PRH Consultores (3) 



X 
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TK e 

Similares 

APPLE 

TRS-80 

Prodar (2) 


(II) 


Prodomo (crediário) 

X 



Ramo (3) 



l/lll 

Prokura (crediário) 



(III) 

PRH (2) 



X 

RitasComp (Ringo 470) 

X 



SIL (crediário) 



X 

Servimec (cadastro) 



(l/lll) 

Sistemática (2) 


X 

X 

Softscience 

X 

X 

X 

Suporte (pacotes) 


X 


Tec (crediário) 



X 

VI - JOGOS 

1.1. Inteligentes/ 




Educativos 




BBS 


(26) 

011-21) 

Codimex (6809/Color) 



(111-21) 

Monolith 20001 -2 

(85) 

X 


Multisoft 

(2000-3) 




(82/3/5-10) 



Polymax (Maxxi) 


X 


Prológica (CP-200) 

(17) 



Softscience 

(2) 

(2) 

(7) 

Sysdata (111/JR) 



(6) 

1.2. Animados/Ação 




BBS 


(± 153) 

(111-95) 

Cibertron 

(11) 



Codimex (6809/Color) 



(111-103) 

Monolith 20001 (3) 

(85) 

X 




TK e 

Similares 

APPLE 

TRS-80 

Multisoft 

(2000-20) 

(82/3/5-18) 



Prológica (CP200/500) 

(38) 


(111-3) 

Softscience 

(8) 

(5) 

(38) 

Sysdata (JR/III) 



(111-61) 

1.3. Em Geral 

(não especificado) 




Datta-tape 

X 

X 

X 

Intersoft 

Polymax (Maxxi) 


(213) 

(l/lll) 

VII - FERRAMENTAS 

BBS 

Codimex (6809 — 
compuladores/ linguagens) 
CWBug (2) 

Pensamento (Sistema 

X 

(16) 

(Color-16) 

Mumps p/ micros) 

Sysdata JR/III - 


X 

X 

linguagens e sistemas) 



(I/III-14) 

VIII - UTILITÁRIOS 


Alta 


X 


BBS 


(26) 

(20) 

Bit a Bit (system house) 
CEDM (Suporte) 

(2000) 

(II) 


Compucenter (Applesoft 
compiler) 


(II) 


Chip Shop (geração de 
aplicativos entre micros) 


X 

X 



Para obter seu exemplar mensal (12 
números) da revista Microhobby conten¬ 
do muitos programas para o TK como 
também para o Apple e o TRS-80, inúme¬ 
ras dicas e as últimas novidades na área de 
informática, você deve fazer uma assina¬ 
tura. 


COMO FAZER 
SUA ASSINATURA 


É importante ressaltar que o recebi¬ 
mento da revista é considerado a partir da 
data de recebimento do pedido de assina¬ 
tura, porém, há um período de 30 dias de 
carência até a revista chegar às suas mãos. 
Os números anteriores da revista podem 
ser adquiridos se as tivermos no mo¬ 
mento do pedido em nossos estoques, 
através do telefone 826-5001 diretamen- 
te com o Departamento Comercial. 

Para ter acesso a todas estas vantagens 
basta preencher, corretamente, o cupom 
anexo, colocá lo no correio junto a um 
cheque nominal ou vale postal em nome 
de Micromega Publicações e Material Di¬ 
dático, no valor de CrS 22.000,00. 

O envelope deverá ser selado e endere¬ 
çado com os seguinte dizeres: 


MICROMEGA P.M.D. LTDA. 
Departamento de Assinaturas 
Caixa Postal 54096 
CEP 01296- São Paulo, SP. 




e dentro dele não deverá ter nada além do 
cheque e o cupom. 

No versò do cheque, escreva: 

"Destina-se ao pagamento de uma as¬ 
sinatura (12 números) da revista Micro¬ 
hobby". 

Quando este cheque for devolvido ao 
seu Banco com nosso endôsso, servirá (pa¬ 
ra você), de comprovante provisório até 
que nosso recibo seja confeccionado e en¬ 
viado pelo correio. Validade 30.11.84 













































TKe 

Similares 

APPLE 

TRS-80 



TKe 

Similares 

APPLE 

TRS-80 

Comicro 

X 

X 

X 


demonstrativos e 4 para 




Codimex (6809/Color) 



(Color-53) 


topografia) 



(Color) 

Computerniks 

X 


(II) 


Comicro (VersaCAD) 


X 


Computerware 


X 

X 


CRT (análise plana de 




Computer House (alta 





estruturas planas elásticas) 


(II) 


resolução, desenhos. 





Dismac (pacotes para 




gráficos) 

X 

X 

X 


Applesoft — D8100) 


X 


Copec 


X 



Digitus (DGT1000 - RS232/ 




Digitus (DGT1000) 



<111-31 


Sist. Operac. CP/M) 



(III) 

Dismac (D8100 — 





Empresa Bras. Software 




compilador BASIC) 


X 



(p/ prof. liberais) 


X 


Datta-tape 

X 

X 

X 


Engemicro (loteria esportiva/ 




Erkla (gerador de gráficos) 


X 



loto) 

(85) 

X 


Engemicro 


(DOS) 

X 


Interface (estatística) 


X 


Intersoft (9) 


X 

X 


Informática Dinâmica 




JVA 

X 

X 

X 


(Agrimensor-planilha 




Kristian 

X 




cálculo analítico) 

(83/85/ 



Microarte (conversor) 


(II) 




CP200) 



Multisoft (4) 

(82/83/85 




Núcleo Apoio à Infor. 





2000) 




(distrib. bebidas) 



(l/lll) 

NGW 

X 

X 

X 


Intersoft (proc. gráfico e 




Pensamento (transmissão 





diversos) 


X 

fl/lll) 

de arquivos entre micros) 


X 

X 


Mici«ptonics 

(83/85) 

X 

X 

Polymax (Maxxi) 


(26) 



Microshop (s/ encomenda) 

X 


(l/lll) 

Potencial (Dicas — 





Prológica (CP-500/200 - 




DOS Boss) 


(ll/lle) 



p/ Ex. Orçamento 




Prológica (formatação de 





doméstico, deschaveador, 




disco e cópia de sistema 





etc.) 

(4) 


(7) 

operacional — CP-500) 



(III) 


Polymax (Maxxi) — gráfico 




Softscience 


(4) 

(23) 


esom (24) e pessoal/ 




Sysdata (JR/III) 



(6) 


doméstico (4) 


(II) 







Pensamento (Mumps/ 




IX - PI APLICAÇÕES 





MeNET) 


(II) 


ESPECÍFICAS 





Perph (diagramação 









gráfica) 


(II) 


Art e Imagem (gerador de 





Servimec (diversos) 


(DOS/II) 


animações gráficas p/ 





SOS 



X 

cinema) 



(III) 


Simicron (controle de 




Assin 

X 

X 

X 


custo operacional e 




BBS 


(38) 

(19) 


manutenção de veículos) 



(III) 

Benny (por encomenda) 



X 


Software SDI (Científica — 




Computer House (4) sendo 





4) 


(II) 


um para controle 





Sysdata (JR/III — Cálculos 




de restaurantes e motéis 

X 

X 

X 


científicos) 



(l/lll) 

Codesis (kit) de sistemas 





Systech (p/ restaurante e 




para micros) 


X 



advocacia) 


X 


Codimex (6809 — Color) — 





Unitron (Apll — sistema 




19 denominados 





pessoal de arquivo) 


(II) 



TELEFONES DAS EMPRESAS 


ABS Computação — S. Bernardo do Campo, SP — (011) 455.1940/ 
4962 

Adasis Projetos e Administração Sistemas — Porto Alegre, RS. 
(0512)269831 

Adespro Projetos, Consultoria Asses. Comercial — São Paulo, SP. 
(011)881.1555 

Advancing Sistemas e Manutenção Info — Porto Alegre, RS. (0512) 
26.1194/1988 

Algoritmo Servs. Inf. e Comp. — São Paulo, SP. (011) 210.3021 

Aprodata - São Paulo, SP. (011) 572.0499 

Apple Cursos Sistemas — São Paulo, SP. (011) 853.9457 

Arte Imagem - São Paulo, SP. (011) 542.0588/241.8749 

Assin Assessoria à Informática — São Paulo, SP. (011) 572.2711 

Atrium - São Paulo, SP. (011)261.6589/261.0342 

BBS - São Paulo, SP. (011) 813.6407 

Bianchi St Neto — Foz do Iguaçu, PR. (0455) 72.1418 

Benny - São Paulo, SP. (011) 570.1555 

Bit a Bit - São Paulo, SP. (011) 282.1142 


Boucinhas St Campos — São Paulo, SP. (011) 231.3011 
Brascom — São Paulo, SP. (011) 542.7199 
Bucker - São Paulo, SP. (011) 852.2086 
Byte Shop — Belo Horizonte, MG. (031) 223.6947 
CEDM - Londrina, PR. (0432) 23.9674 
Cespro - Rio de Janeiro, RJ. (021)393.4585 
Chip Shop - São Paulo, SP. (011)211.4261 
Cibertron - Cx. Postal 17005 - CEP 02399, SP. 

Ciência Moderna — Rio de Janeiro, RJ. (021) 240.9327 

Científica Informática — Rio de Janeiro, RJ. (021) 201.2295 

Codimex — Porto Alegre, RS. (0512) 49.8446 

Comicro - Curitiba, PR. (041) 224.5616 

Compucenter — São Paulo, SP. (011)255.5988/9662 

Compulnter — Garça, SP. (0144) 61.2425 

Codesis — Porto Alegre, RS. (0512) 22.9782 

Compumídia — Porto Alegre, RS. (0512)22.5288 

Compushow — Brasília, DF. (061) 273.2128 

Compute Sistemas e Comp. — São Paulo, SP. (011) 852.8533 
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Computer House — Campinas, SP. (0192) 9.0822 

Computerniks Consult. Inform. — São Paulo, SP. (011) 852.8533 

Computerware — Rio de Janeiro, RJ. (021) 221.0706 

Computer World — Campinas, SP. (0192) 32.4155 

Consult - Niterói, RJ. (021) 722.6791 

CP Systems — São Paulo, SP. (011) 255.5454 

CSR Com. Equipamentos — Curitiba, PR. (041) 232.1750 

CRT - Rio de Janeiro, RJ. (021) 240.2876 

CWBug - Curitiba, PR. Cx. Postal 3447 CEP 80000 

Data Base — Rio de Janeiro, RJ. (021) 221.3069 

Data Process — Rio de Janeiro, RJ. (021) 220.8327 

Datalógica - São Paulo, SP. (011) 283.0355 

Dataserv — Volta Redonda, RJ. (021) 42.7507 

Data Shopping — Campina Grande, PB. (083) 321.5677 

DC Comércio Comp. Porto Alegre, RS. (0512) 22.5136 

Desenvolvimento Tecnológico — São Paulo, SP. (021) 283.0355 

Desk Engenharia de Sistemas — Ponta Grossa, PR. (0422) 24.8001 

Digital — Porto Alegre, RS. (0512) 512.708 (Telex) 

Digitus — Belo Horizonte, MG. (031) 332.8300 

Disoft - São Paulo, SP. (011) 813.0497 

Dismac - São Paulo, SP. (011) 826.7111 

Dividata — Divinópolis, MG. (037) 221.2942 

DRL Org. Empreend. — Campo Grande, MS. (067) 382.6487 

Elógica - Recife, PE. (081)241.4388 

Empresa Bras. Microinformática — Porto Alegre, RS. (0512) 41.9768 

Engemicro — São Paulo, SP. (011) 872.5257 

Erkla - São Paulo, SP. (011) 825.4899 

Fancy - São Paulo, SP. (011) 549.3400 

Filcres - São Paulo, SP. (011) 531.8822 

Hengesystems — São^aulo, SP. (011) 549.3400 

Hercos — Porto Alegre, RS. (0512) 25.4923 

Hospserv - São Paulo, SP. (011) 262.9843 

Humana - São Paulo, SP. (011) 881.7388 

Informática Dinâmica — Santa Rosa, RS. (055) 512.1712 

Infotec — Florianópolis, SC. (0482) 23.4777 

Interface - (0242) 43.7201 

Interlecta — São Paulo, SP. (011) 231.2808 

Ipanema — Rio de Janeiro, RJ. (021) 259.1516 

JVA - Rio de Janeiro, RJ. (021)262.6968 

Intersoft - São Paulo, SP. (021)211.0371 

Kemitron — Belo Horizonte, MG. (031) 225.0644 

Kristian — Rio de Janeiro, RJ. (021) 259.9057 

KYW - Rio de Janeiro, RJ. (021)221.3069 

LHM - São Paulo, SP. (011) 262.5437 

Libra - São Paulo, SP. (011)65.5081 

Link - São Paulo, SP. (011) 814.8094 

Livraria Cultura — São Paulo, SP. (011) 285.4033 

Madison - Curitiba, PR. (041) 224.3422 

Matrix - São Paulo, SP. (011)64.0688 

MC Consultoria: Rio de Janeiro, RJ. (021) 551.6355 

Metasoft — Rio de Janeiro, RJ. (021) 262.2204 

Microarte - São Paulo, SP. (011) 263.6285 

Microcenter — Rio de Janeiro, RJ. (021) 228.0593 

Microbits - São Paulo, SP. (021) 521.4235 

Microcomputação — Belo Horizonte, MG. (031) 226.7526 

Microdados — Florianópolis, SC. (0482) 23.1039 

Microconsult — Rio de Janeiro, RJ. (021)259.7098 

Microequipo — Rio de Janeiro, RJ. (021) 262.3289 

Microhouse — Rio de Janeiro, RJ. (021) 294.6248 

Microinformática — Rio de Janeiro, RJ. (021) 239.2798 

Micro kit — Rio de Janeiro, RJ. (021) 267.8291 

Micromarques - Ubá, MG. (032) 532.1020 

Micronews — Rio de Janeiro, RJ. (021)252.9420 

Micro-Rei - São Paulo, SP. (011) 881.0022 

Microshop — São Paulo, SP — Al. Lorena, 652 

Microsystem — Curitiba, PR. (041) 232.3233 

Microtecla - Franca, SP. (016) 722.1565 

Microtronics — Petrópolis, RJ. Rua 16 Março, 80/3 

Monk Micro - São Paulo, SP. (011) 280.0163 

Monolith 20001 - São Paulo, SP. (011)268.4370 

Multisoft - São Paulo, SP. (011) 256.3858 

Multix - São Paulo, SP. (011)61.1736 

Nasajon — Rio de Janeiro, RJ. (021)263.1241 I 

NGW — Rio de Janeiro, RJ. (021)254.4835 
Nova Geração - São Paulo, SP. (011) 263.6285 
Nuviléibuna, 86 — Olinda, PE. 


Núcleo Aperfeiçoamento à Inf. — Juiz de Fora, MG. (032) 212.3447 

Open Systems — São Paulo, SP. (011) 266.1916 

Peek Et Poke - São Paulo, SP. (011) 813.3277 

Pensamento — Porto Alegre, RS. (0512) 41.8306 

Perph - São Paulo, SP. (011) 62.3600 

Polymax - São Paulo, SP. (011) 268.9233 

Polimicro — Campinas, SP. (0192) 80.822 

PRH Consultores — Rio de Janeiro, RJ. (021)220.3038 

Prológica - São Paulo, SP. (011) 531.8822 

Potencial — Campinas, SP. (0192) 41.7775 

Prodomo — Porto Alegre, RS. (0512) 24.3453 

Prokura - Porto Alegre, RS. (0512) 24.6173 

PSI - São Paulo, SP. (011)531.9902 

Ramo - São Paulo, SP. (011)211.3119 

Ritas Comp. — São Paulo, SP. (011) 217.8400 

SEtC - Rio de Janeiro, RJ. (021)232.4900 

Servimec - São Paulo, SP. (011)232.1511 

Sicomig — Rio de Janeiro, RJ. (021)238.7009 

Simicron — Rio de Janeiro, RJ. (021) 205.6597 

Síntese — Brasília, DF. ( ) 273.5030 

Siviero - São Paulo, SP. (011)571.1563 

Siscomp — Fortaleza, CE. (085) 244.4691 

Sisdata - Salvador, BA. (071)241.6189 

Sistemática — Porto Alegre, RS. (0512) 25.0055 

Softscience - SP. (011)210.8292, PR (041)223.9292 

Stol - São Paulo, SP. (011)280.8958 

SOS - São Paulo, SP. (011) 66.7656 

Suporte - Curitiba, PR. (041)232.9165; RJ (021)224.8012 

Software SDI - São Paulo, SP. (011) 813.4031 

Software CCS — Minas Gerais (031) 223.7518 

Systech - Porto Alegre, RS. (0512) 22.3851 

Sysdata - São Paulo, SP. (011) 67.5900 

Tec. Comp. — Belo Horizonte, MG. (031) 441.9336 

Teknológica — Porto Alegre, RS. (0512) 42.8549 

Unitron - São Paulo, SP. (011) 858.4744 

Victori — Rio de Janeiro, RJ. (021) 266.2191 

Zap — Rio de Janeiro, RJ. (021)253.0025 


A 


TENTE ESTA 


5 REM DESENHANDO NA TELA EM ALTA 

7 REM RESOLUÇÃO GRAFICA 

8 REM 3 HlCROMEGA/CA10-84 


9 

HGR 




ÍO 

INPUT ! 




20 

HCOLOR 

= C 



25 

X = 20:Y = 20 



30 

A = PEEK (39) 



35 

IF A = 

Í8 THEN X 

= X - i 


36 

IF A = 

24 THEN X 

= X + í 


37 

IF A = 

36 THEN Y 

= Y - í 


38 

IF A = 

30 THEN Y 

= Y + i 


42 

IF A = 

40 OR A = 

46 THEN 

10 

47 

IF X < 

0 OR X > 255 THEN 

X ! 

49 

IF Y < 

0 OR Y > : 

Í9i THEN 

Y ! 

50 

HPLOT > 

:,y 



59 

GOTO 30 




__;_ J 
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HOBBYSHOP 


VEJA SE SUA CIDADE TEM O QUE VOCE PRECISA 


SÃO PAULO 


M£tt$DATA 

Processamento de Dados Ltda. 

BASIC em TK 

Consulte as outras escolas. Você será nosso 
aluno. 

Av. Bernadino de Campos, 294 — 5 °. andar — 
Cj. 52 — Fone: 284-8352 — Metro Paraíso SP. 


tiUfiemunifi 

« «aratftttt lida 

Loja de Microcomputadores 
TK-83-85-2000 - CP200-300-500; jogos - su¬ 
primentos — programas. 

Cursos Basic I e II 

Av. Brig. Faria Lima, 2178 — Fone: 813-3338 — 
Pinheiros SP. 



COMPUTADORES 


Cursos Basic, Cobol, Assembler 
A nova maneira de aprender a programar. 

Núcleo I: Av Pacaembú, 1280 — Fone: 66-7656 
- SP. 


EftJE 


Comércio de Computadores Ltda. 

TK85 x TK2000? 


Só na ENG você adquiri o seu TK2000 nas me¬ 
lhores condições e ainda dá o seu velho TK83, 
TK85 ou CP200 como parte de pagamento. 
TK2000 é na ENG. Showroom - Tel. 210-5843. 
Av. Franz Shubert, 145 — Cidade Jardim SP. 


CENTRO 

PAULISTA DE 
INFORMÁTICA 

Curso de Basic "Promoção Especial" 

O mais moderno curso de Basic de S. Paulo. 

Rua Itumaitá, 349 — S/ — Cj. A — Esq. Brig. 
Luiz Antonio — altura n? 1000 — Fone: 35-4511 
Liberdade SP. 


a 


O O O MONOLJTH 2001 

Eletrônica e Jogos Com. e Exp. Ltda. 
Equipamentos TK85, Elppa II, Elppa Jr. e Color 
64. Jogos em Geral. 

Rua Augusta, 1371 S/L7 — Fone: 268-4370 — 
SP. 


1 


SÃO PAULO 


CIBERTROIM ELETRÔNICA LTDA. 

Programas p / TK82-83-85-CP200 
Ringo e Similares 

Ouro de Hitler, Força Invasora, Bomber, Ufo, 
Robot War, Labirinto II, Galaxias, Mothership, 
Meteors II, Ataque aéreo, Asteróides, TK-Word. 
Peça seu programa pela CP. 17005 — CEP 02399 
Cada programa: $6.800, 00/cheque nominal SP. 


S. BERNARDO DO CAMPO - SP 



POLI DATA 


Software-House especializada no 
desenvolvimento de sistemas e cursos 
treinamento para microcomputadores. 




;\N 

CP*“ * O v 

Filial: R. Domingos J. Ballotim, 46 - 5e cj. 55 - CEP 09700 - S.B. do Campo - Tel. 448-5970 




A POLIVALENTE 
DA INFORMÁTICA: 


AfcC COMPUTAÇÃO 

Cursos Basic, Assembler e Cobol. Microcompu¬ 
tadores — Suprimentos, Calculadoras, Órgãos 
Eletrônicos, Software, Microclub. 

Av. Senador Vergueiro, 4962 — 1? andar — Sala 
6 — Rudge Ramos — S. B. Campo — CEP 
09720 - Tel. 455-1940. 


MINAS GERAIS 


(ÕmpuC/ub/ 

Seja mais um amigo do Compu Club. Você recebe: duas fitas com 
6 excelentes programas grátis de procedência estrangeira e bole¬ 
tins do Compu Club regular e gratuitamente. 

Como fazer: indique o tipo de equipamento que possui, anexe 
cheque de $6.500,00/despesas de postagem. 

Compu Club CEP. 1795 CEP; 30000 — Belo Horizonte — MG. 


RIO DE JANEIRO 


PROSERV-Processaiento Dados.Cursos e Rep.Ltda. 
.MICROCOMPUTADORES (Novos e Usados) 

.CURSOS (Cobol. Basic. CP/H. DBase II) 

.SUPRIHENTOS (Fonularios. Disquetes. Fitas, etc.) 

.LIVROS E REVISTAS 

.SOFTWARE (TRS80. Apple. TK85) 

Lg.Nove de Abril 27 salas 626/628 
Tel: (0243) 429800 - V.Redonda - RJ 


RIO GRANDE DO SUL 


INFORMÁTICA DINÂMICA LTDA. 

"AGRIMENSOR" 

Planilha de Cálculo Analítico para agrônomos, topógrafos e 
técnicos agrícolas. 

O programa para a família Sinclair (TK83, 85, CP200) e mui¬ 
tos outros, que economiza horas de serviços. Remeter che¬ 
que de 6 ORTN para: 

Rua Minas Gerais, 56 — Sta. Rosa — CEP 98900 — Rio 
Grande do Sul. 
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NÚMEROS COMPLEXOS 



José Gimene 


Números Complexos 
Memória Ocupada: 5053 bytes 
Soma Sintática: 10274 

& 

Nível: ^ 


Computadores: TK-83 e compatíveis 


Este programa tem por finalidade 
resolver um sistema de n equações a 
n incógnitas, onde podemos trabalhar 
não apenas com números reais, mas 
também com números complexos na 
forma polar. 

A principal utilização deste pro¬ 
grama está na área eletro-eletrônica 
onde os números complexos são em¬ 
pregados largamente na representação 
de circuitos elétricos, que envolvam 
capacitâncias e indutâncias. Existem 
diversas maneiras para resolvermos 
tais circuitos, mas em todas elas pode¬ 
remos construir um sistema matricial 
de equações em que as incógnitas são 
correntes de malhas ou tensões 
nodais. Desde simples circuitos eletrô¬ 
nicos até estudos de load-flow (fluxo 
de carga) em sistemas de distribuição 
de energia, este programa pode ser 
convenientemente utilizado. 

Um número complexo é a repre¬ 
sentação de qm número real e um nú¬ 
mero imaginário e pode ser escrito de 
duas maneiras: 

— forma retangular: a 4- jb 

onde a representa a parte real e b re¬ 
presenta a parte imaginária 

— forma polar: 

Va 2 + b 2 ' I arct 9 b/a 

módulo I fase 

Devido as características de reso¬ 


lução do programa, utilizaremos a for¬ 
ma polar e, para termos um número 
real puro, basta fazermos a parte ima¬ 
ginária igual a zero (b = 0) o que repre¬ 
senta fase nula. 

Um sistema matricial de equações 
pode ser escrito da maneira que mos¬ 
tramos na figura 1. 

O método utilizado para a resolu¬ 
ção do sistema é o método de elimi¬ 
nação de GAUSS ou de diagoniza- 
ção, que consta do seguinte: 

7? passo — dividir a primeira linha por 
A( 1,1), a segunda linha por A(2,1) e a 
n-ésima linha por A(l,1), de forma a 
obter o que mostramos na figura 2. 

2? passo — subtrair a linha 2 da linha 1, 
a linha 3 da linha 1 e assim sucessiva¬ 
mente até subtrair a n-ésima linha da li¬ 
nha 1. Desta forma teremos o que 
mostramos na figura 3. 

3? passo — dividir a linha 2 por A" 
(2,2), a linha 3 por A"(3,2) e assim até 
dividir a n-ésima linha por A"(l,2). 
Após isso,subtrair a linha 3, a linha 2, a 
linha 4 da linha 2 e sucessivamente até 
a n-ésima linha da linha 2, conforme o 
que aparece na figura 4. 

Podemos notar que, seguindo es¬ 
ta seqüência de divisões e subtrações, 
vamos diagonalizar a matriz para obter 
o que mostramos na figura 5. 


A primeira incógnita que tiraremos; 
será V(!) e, por substituição, as de¬ 
mais. 

Para diferenciarmos a introdução 
dados em módulo e fase, utilizamos 
o seguinte processo: 

A(/,IJ), V(7,1) e P (7,1) onde o número 
7 representa o módulo , e A(2,I,J), 
V(2,1) e Pl Z D onde o número 2 repre¬ 
senta a fase. 

0 programa é dividido em sub-ro- 
tinas da seguinte maneira: 

Unhas 990 a 1600: explicações do pro¬ 
grama, definição de variáveis e matri- : 
zes e introdução de dados. 
tinhas 1640 a 1690: transformação do 
ângulo de fase introduzido em graus 
para radianos. 

Unhas 1700 a 2060: faz a subtração en¬ 
tre dois números complexos transfor¬ 
mando-os primeiramente para a forma 
retangular. 

Unhas 2070 a 2340: calcula os valores 
das incógnitas. 

Unhas 2360 a 2410: apresentação dos 
resultados. 

Unhas 2490 a 2680: faz a divisão entre 
dois números complexos. 

Unhas 2600 a 2950: bloco de correção 
de valores se forem introduzidas erro¬ 
neamente. 

Unhas 2990 a 3030: bloco auxiliar de 
transformação polar/retangular. 
tinhas 3200 a 3210: gravação do pro¬ 
grama . 
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TK83TK85 TK 2.000 
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PROGRAMAS COMERCIAIS E 
JOGOS 

SUPRIMENTOS 


• INTROD.À MICROCOMPUTADORES 
BASIC I Eli 

• AULAS PRÁTICAS E TEÓRICAS 

• 2 A 3 ALUNOS POR MICRO 

• TURMAS DE 12 ALUNOS 

• APOSTILAS E CERTIFICADOS 
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NA LOGITEC QUEM FAZ 
O JOGO É VOCE 


Indústria gaúcha que atua na 
área de periféricos para micro¬ 
computadores compatíveis com 
APPLE II. 

LINHA USUÁRIO 

• monitor de video verde 12” (20 MHz) 

• interface para impressora paralela 

• expansão de memória 16K 

• processador CPM (Z80A) 

• expansão 80 colunas com softswich 
incluído no cartão 

• cartão Logicopy (Wildcard) 

• Microbuffer 16 ou 32 K p/ impressora 

• Ram-Disk até 256K — expansão de 
memória até 256K 

• interface para drive 

• interface R.S. 232-Serial 

CÓDIGO DE BARRAS 

• etiquetas codificadas, leitoras ópticas, 
programas. 

LINHA LABORATÓRIO 

• conversor analógico digital 

• controlador de entradas e saídas 

• Kit para microcomputador 

• Data logger inteligente: soft e hardware 
para transformar seu micro em sistema 
de aquisição de dados até 64 canais. 

• Micro 6502 - Dedicado 2-K - Epron -1K 


RAM 


LOGITEC 


LÓGICA E TECNOLOGIA DIGITAL LTDA. 
Praça Osvaldo Cruz, 15 conj. 710 
Tal.: 25-1677 - Porto Alegra 
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A(l,2) . 
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- V(l) 
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onde V(1) a V(l) representam as incógnitas do sistema. 


Figura 1 



Figura 5 


Para ficar mais claro, vamos de¬ 
senvolver um exemplo com o seguinte 


circuito elétrico, resolvendo-o por cor¬ 
rente de malha! 











































































Dados: 




0 programa é auto-explicativo e o 
leitor não terá dificuldades na entrada 
de dados. 


Experimente introduzir os dados 
do exemplo: 




990 3 -OU 
1300 REN E 
RRDO ROR J 
N*jU/S3 
1310 PRINT 


:-Tt PRGGRRMR PCI tLPBü 
;SE RNTGNIO - 


3. UM 
ROS 
R MRT 
1020 
1030 
U í 1 > I 
104-e 

I 

1050 

/ I 

106© 

/ I 

1070 
U ( I)| 
1080 
1090 


"ESTE PROGRfiMfi RêSOLv 
S7.s5TE.HRDE EQURCOE3 COM NUME 
CQMPLE-XGS .NR SEGUINTE FORpi 
RICIfíL:" 

PRINT 
PRINT 
1 P < 1) 

PR INT 

I / 

PRINT 
=1 / 

PRINT 


PRINT 
IPÍI) 
PRINT 
PRINT "RS 

Cl)- V ( I) " 

1100 PRINT 
PRINT 
> 0 " 

PRINT 
PRINT 


fí (1 ,1)- 

h í i , a ) i $ 

/ - 

/ IS 

✓ - 

' IS 

s - 

/ «B 

flil.l)- 

R í X .. O) | Í 


111 © 
.. 1 > < 
1120 
1130 
SRO: 
1140 
1150 


INCOGNITRS SRO: U 


OBRIGRTORIRMENTE R í1 


"05 DRDOS DE ENTRRDR 


PRINT 
PRIN T 
RR . 

1160 PRINT 
1170 PRINT 
teEHa (GRRUSi 
1180 PRINT RT 
DE INCOGNITRS 
1190 LET Ksl 
1200 LET C=2 
1210 INPUT N 
1220 PRINT RT 21 
1230 PRUSE 120 
124-0 CL5 


"R(B,I/U) E P(fl,I) PR 
E" 

••R<B,I^U) E P(S,I> P/ 


21 , 0 ; 

(I) •• 


DIGITE G NO, 


29, *' = ,f ; N 


1250 
1260 
1270 
1280 
3.290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
U J ") 
1390 
1400 
1410 
1420 


FRST 
DIH R 

DIH B(1,N,N) 

Olli R(2.. N.. N) 

DIM B(2,N,N) 

DIH MCN) 

DIM FCN) 

DIM P(1,N> 

DIM P (2 .. N) 

DIM U(1,N) 

DIM V <2 ^ N) 

FOR 1=1 TO N 
FOR U=1 TO N 
PRINT RT 21,0; 

INPUT R(1,I,J) 

PRINT fi(l,I,J) 

5CROLL 

PRINT ,1 R(2/';I; ~ 


1430 INPUT 9(2,1,J) 

1440 PRINT R(2,I,U> 

1450 SCROLL 
1460 NEXT U 

1470 PRINT "P (1, I; •• y = 

1480 INPUT PC 1,1) 

1490 PRINT P(1,I) 

1500 SCROLL 

1510 PRINT -P (2, I; M l = " ; 

1520 INPUT P(2,I) 

1530 PRINT P(2,I) 

1540 SCROLL 
1550 NEXT I 
1560 SCROLL 

1570 PRINT RT 21,0;"RLGUM URLQR 
ERRRDO (S-N) 

1560 INPUT L$ 

1590 IF L$="S" THEN GOTO URL M 25 

90" 

1600 IF L$<>"N" THEN GOTO URL "1 

570" 

1610 CLS 

1620 LET S=1 

1630 GOSUB URL ••2490" 

1640 FOR 1=1 TO N 
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Edição n?6 


JOGOS 

INTELIGENTES 


Felipe Schmidt 



Em que consiste Inteligência Artifi¬ 
cial? A principal meta da Inteligência Ar¬ 
tificial (IA) é tornar os computadores es¬ 
pertos. Pesquisadores em IA escrevem 
programas e tentam fazer tarefas que or¬ 
dinariamente poderiam ser realizadas uni¬ 
camente pela razão e raciocínio humano 
Embora ninguém tenha sido ainda levado 
a descobrir um programa que transforme 
o computador em uma entidade inteligen¬ 
te, algumas conquistas da IA são extraor¬ 
dinárias e excitam nossa mente com suas 
possibilidades. 

0 termo Inteligência Artificial abrange 
um considerável número de tópicos. Ve¬ 
jamos alguns deles: 

• Processamento da linguagem natural: 
Tenta fazer com que os computadores en¬ 
tendam a linguagem humana e suas várias 
línguas, seja Inglês, Russo ou Português. 
Tem aplicação em, por exemplo, tradu¬ 
ção por computador. 

• Solução de problemas: Ê um campo 
importante. Podemos facilmente escrever 
um programa que resolva equações poli¬ 
nomiais, mas se quisermos resolver outro 
tipo de problema, teremos que escrever 
outro programa específico. A meta é um 
programa geral de soluções, que seja ca¬ 
paz de encontrar soluções para diferentes 
tipos de problemas. Tal programa seria ca¬ 
paz de demonstrar teoremas matemáticos, 
resolver problemas de Xadrez ou mesmo 
resolver palavras cruzadas. 

• Reconhecimento de imagem: É de im¬ 
portância fundamental na robótica onde, 
por exemplo, uma mão mecânica contro¬ 
lada por computador pode distinguir en¬ 
tre porcas, parafusos e arruelas — uma uti¬ 
lização bem melhor, pois para um compu¬ 
tador, ver por meio de uma câmera de TV 
e reconhecer o objeto focalizado por ela, 
pode ser uma tarefa bem difícil para ele. 

• Programação automática: O operador 
apenas supriria o computador com especi¬ 
ficações do programa, e este se encarrega¬ 
ria de elaborar o programa. Ou então, o 
computador poderia testar e corrigir pro¬ 
gramas escritos por pessoas. 


Neste artigo, tentaremos mostrar pri¬ 
mariamente como escrever programas de 
jogos inteligentes em BASIC. O BASIC 
utilizado, será o do TK-82C, 83 ou 85. 
Embora esta não seja a linguagem ideal 
para programas de IA, a sua vantagem 
está no fato de que a grande maioria dos 
microcomputadores a utiliza como lin¬ 
guagem padrão. 

O programador se defrontará com três 
problemas principais: representações, bus¬ 
ca de solução e abrangência. A maneira 
como superar estes problemas, no decurso 
da transformação de sua idéia em progra¬ 
ma, irá determinar, em grande parte, quão 
"inteligente" será seu programa. 

O problema de como representar uma 
estrutura de dados complexa em uma lin¬ 
guagem de computador, não é limitado a 
IA. Entretanto, representação pode ser 
um problema particularmente difícil para 
quem está envolvido com IA, uma vez 
que as estruturas e processos que se tenta 
modelar, por computador, são bastante 
complexos. 

O problema da busca de solução é cru¬ 
cial em IA. Frequentemente, um progra¬ 
ma de IA tenta resolver uma tarefa, geran¬ 
do uma infinidade de possíveis soluções, 
testando cada uma, para determinar qual 
é a correta. Isto é análogo ao estudante 
que, ao invés de procurar resolver uma 
equação do segundo grau pela fórmula, 
meramente atribuísse diferentes valores 
para X, até encontrar aquele que fosse a 
solução. 0 problema é que o conjunto das 
possíveis soluções, pode ser tão grande, 
que o computador pode ter dificuldades 
em gerar e testar todas elas em tempo há¬ 
bil. Imaginem o estudante que provavel¬ 
mente testaria milhões de valores de X até 
encontrar o correto! (A despeito do fato 
do método resolver qualquer tipo de 
equação, não parece muito prático). 

Programas de jogos são particularmen¬ 
te vulneráveis ao problema da busca, uma 
vez que pode haver um número exponen¬ 
cialmente crescente de possíveis movi¬ 
mentos a serem testados, até que o me¬ 
lhor seja encontrado. 


Finalmente, há o problema da abran¬ 
gência. Muitos programas de IA hoje em 
dia, operam com certos limites estreitos 
e bem definidos. Embora funcionem bem 
dentro desses limites, sua utilidade é res¬ 
trita justamente devido a estes limites. 
Mas quando o programa é estendido para 
operar com mais tipos de dados, provido 
com mais funções e utilitários, surge um 
efeito negativo: o programa que agora po¬ 
de realizar um maior número de tarefas, 
já não as realiza tão bem individualmente. 

Em outras palavras, em IA a abrangên¬ 
cia (ou generalidades) de um programa é 
inversamente proporcional a sua eficiên¬ 
cia. 

PROGRAMAS QUE JOGAM 

Em meados da década de 60 o filósofo 
Hubert Dreyfus de Berkeley declarou que 
"um computador não jogaria xadrez se¬ 
não em nível de principiante" — pouco 
depois deste comentário, foi derrotado 
pelo programa Machac. Dreyfus ficou sur¬ 
preso, pois acreditava que jogar xadrez 
exigia certas características humanas, 
como por exemplo, intuição e criativida¬ 
de. Seu ponto de vista falha — quando 
características humanas como criativida¬ 
de, analisadas em seus constituintes bási¬ 
cos, se revelam como simples sequências 
de eventos fisiológicos que podem ser imi¬ 
tados (e talvez melhorados) por um pro¬ 
grama de computador. Muitos dos pro¬ 
gramas que têm sido desenvolvidos, ten¬ 
tam jogar Xadrez, Damas ou Go imitan¬ 
do o processo que se desenvolve na mente 
humana — quando esta se ocupa de um 
jogo dessa natureza. Muitos destes pro¬ 
gramas incorporam funções de avaliação 
que, embora representem o processo de 
pensamento humano em algum grau, não 
são modelos deliberados da mente hu¬ 
mana. 

O programa que teve até hoje o melhor 
desempenho contra um bom jogador é o 
BKG 9.8 de Hans Berliner, que joga Ga- 
mão. Em um "matcb" contra o campeão 
mundial de Gamão, Luigi Villa, BKG ven¬ 
ceu quatro em cinco partidas. 

O mais forte programa de Xadrez é o 



















combinações possíveis é da ordem de 
IO 15790 ! (Considerando que o universo 
tem "apenas" IO 80 átomos, chamar aque¬ 
le número de astronômico, seria incorreto 
e injusto). 

Evidentemente a quase totalidade des¬ 
tas combinações são desdobramentos de 
jogadas implausíveis ou fracas, abrindo as¬ 
sim, espaço para redução deste número. 

Uma maneira de limitar a quantidade 
de buscas, é por meio do algoritmo alfa¬ 
beta. A idéia por trás dele é simples. 
Quando o computador está gerando a ár¬ 
vore dos possíveis movimentos, não é ne¬ 
cessário gerar o ramo que resulta de um 
movimento inferior da parte do compu¬ 
tador. Em outras palavras, se o compu¬ 
tador avaliou o movimento e concluiu 
que este não é bom, não é necessário veri¬ 
ficar os movimentos subsequentes, de mo¬ 
do que o movimento X não será realizado 
em hipótese alguma. Analogamente — se¬ 
guindo a idéia do mini-max — o compu¬ 
tador não necessita gerar o ramo da árvo¬ 
re, que resulta de um movimento inferior 
por parte do oponente. 

Quando o algoritmo alfa-beta é empre¬ 
gado como parte de uma busca em árvore, 
o tempo economizado é fenomenal. 
Estima-se que em condições ótimas, uma 
busca de quatro movimentos aumenta 
sua velocidade em cerca de 500 vezes. 

Vejamos alguns critérios que podem 
nos orientar na eliminação de movimen¬ 


tos (geralmente se utilizam mais de cin¬ 
quenta critérios para uma avaliação defi¬ 
nitiva)^_ 

1. Equilíbrio de material 

2. Valor das peças 

3. Estrutura dos peões 

4. Segurança do próprio rei 

5. Controle do centro 

DAMAS 

Vejamos a seguir, a título de exemplo, 
um programa que joga Damas. Acompa¬ 
nhe a descrição pelo fluxograma mostra¬ 
do adiante. No interesse da brevidade, ele 
não incorpora uma rotina de geração de 
árvore para os movimentos, como descri¬ 
to anteriormente. Apenas verifica um ou 
dois movimentos, dependendo da situa¬ 
ção. 

O programa está dividido em seis sub- 
rotinas — num programa supervisor — que 
as chama à medida que são necessárias. 

A primeira subrotina é a da linha 450. 
Ela desenha e numera o tabuleiro. 

Em seguida é chamada a subrotina da 
linha 230. Esta rotina coloca as peças em • 
sua configuração inicial. A disposição das 
peças é representada como uma saída grá¬ 
fica no vídeo e como um array 12x12 
(T$). Necessitamos de um array 12x12, 
pois se utilizássemos um 8 x 8 certos argu¬ 
mentos da variável T$ se tornariam nega¬ 
tivos em certas operações, o que resulta¬ 
ria em erro de software; deste modo, cria¬ 


mos então, uma margem em torno do ta¬ 
buleiro. 

A subrotina que escolhe o primeiro 
movimento é a da linha 970. O compu¬ 
tador joga sempre com as pretas. Como, 
em Damas, as pretas sempre iniciam o jo¬ 
go, o computador sempre começa jogan¬ 
do e isto simplifica um bocado o nosso 
programa! 

A subrotina simplesmente escolhe alea : 
tóriamente um movimento em direção às 
casas centrais. A subrotina de entrada (li¬ 
nha 780) permite ao jogador introduzir 
sua jogada. Como a função IN KEY$ é uti¬ 
lizada, não há necessidade da utilização 
do NEWLINE. Assim que o quinto carac¬ 
ter é introduzido, a rotina é terminada. 

Os dois primeiros caracteres são as 
coordenadas da casa de saída, o caracter 
do meio é um "—" (hífen) para jogadas 
normais, ou um "x" para saltos duplos 
ou triplos (capturas) e os caracteres finais 
são as coordenadas da casa de chegada. 

Como o objetivo deste programa é sim¬ 
plesmente ilustrar a mecânica de um pro¬ 
grama de jogo, não houve compromissos 
com relação aos detalhes. Deste modo 
não há crítica de entrada e é possível a in¬ 
trodução de movimentos ilegais. Além 
disso uma possível dama não é identifica¬ 
da pelo programa, mas o operador poderá 
simular seu movimento usando o "x" no 
lugar do hífen. Como a captura só é reco¬ 
nhecida em jogadas normais, é necessário 
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í 

ÍO 

20 

25 

30 

40 

50 

60 


REM TENTE ESTA /TK2Q00 
HGR2 

FOR R = í TO Í40 STEP 2 
FOR C = 0 TO 7 
R0T= R: SCALE= R 
DRAId í AT Í20,90 
NEXT C 
NEXT R 














































CHESS 4.7 da Northwestern University, 
que ganhou uma partida do grande mestre 
internacional David Levy em um torneio 
cujo resultado foi 3,5 a 1,5 (três vitórias, 
um empate e uma derrota) a favor de Levy. 

A FUNÇÃO DE AVALIAÇÃO 

Como proceder para escrever um pro¬ 
grama de Xadrez ou Damas? 0 primeiro 
passo é desenvolver um procedimento 
exato e preciso, para determinar quando 
o computador vai jogar e qual movimento 
é o mais adequado naquele instante de jo¬ 
go. Este procedimento é chamado função 
de avaliação. Uma função de avaliação pa¬ 
ra xadrez ou outro jogo, deve ser específi¬ 
ca o suficiente para que possa ser traduzi¬ 
da em um programa de computador. Al¬ 
gumas teorias de estratégia ou fatores po¬ 
sicionais podem ser impossíveis de serem 
incorporados em um programa, sem um 
refinamento da teoria, em termos mais 
precisos. 

Dois métodos de programação comu- 
mente usados em funções de avaliação, 
são os de mini-maximização e o algoritmo 
alfa-beta. 

ÁRVORES E MINI-MAXIMIZAÇÃO 

Suponhamos que uma pessoa esteja jo¬ 
gando Xadrez com um computador. Esta 
acabou de mover e passa a vez ao compu¬ 
tador. O que o programa fará? 


Uma maneira lógica de proceder é 
construir uma árvore dos possíveis movi¬ 
mentos. O programa verifica — digamos, 
— seis jogadas à frente: três brancas e três 
pretas. Dentro desta limitação de seis 
jogadas, o computador gera todas as pos¬ 
síveis combinações de movimentos. Além 
disso, para cada movimento possível, o 
computador associa um valor numérico à 
configuração resultante no tabuleiro; este 
valor numérico indica quem está em van¬ 
tagem, baseado em fatores como material 
e posição. Para gerar a árvore, o programa 
sempre assume, que o oponente fará o 
melhor jogada possível. 

Vejamos um exemplo de critério de 
avaliação de posição para Xadrez: 


Pontos: 

1. Por aumentar a mobilidade 
da dama 

+ 2 

2. Por aumentar a mobilidade 
do bispo 

+ 2,2 

3. Por aumentar a mobilidade 
do cavalo 

+ 0,3 

4 Por não haver realizado 

o roque 

-0,4 

5. Por estar defendido o peão 

+ 0,1 


Este tipo de avaliação concede mais 
pontos à defesa que ao ataque, portanto 
são necessários os seguintes fatores de 
correção: 


Pontos: 

1. Por aumentar a mobilidade 
do cavalo da dama 

+ 0,8 

2. Por melhorar a defesa dos 
peões 

+ 0,5 


3. Por aumentar a mobilidade 
da torre da dama 

+ 1,0 

4 O bispo da dama defende os 

peões 

+ 0.5 

5. O peão do rei está defendido 
pelo cavalo 

+ 0.3 


Esta avaliação só pode ser realizada em 
posições "estáticas", ou seja, sem troca de 
peças ou xeques. 

Quando o computador houver gerado 
a árvore inteira, ele retorna pelo ramo da 
árvore que resultou em maior vantagem 
(maior pontuação). Esta técnica é chama¬ 
da mini-maximização, uma vez que o com¬ 
putador joga para obter a maior vanta¬ 
gem, supondo sempre que o adversário jo¬ 
gará, para lhe dar a menor vantagem pos¬ 
sível. Quando o computador determinar 
qual sequência é a melhor, este executa o 
primeiro movimento da sequência. 

ALGORITMO ALFA BETA 

A utilização de árvores e mini-maximi¬ 
zação parece ser a melhor maneira.de ge¬ 
rar todos os movimentos possíveis em um 
jogo. Uma maneira evidente de aumentar¬ 
mos a força do programa seria verificar 
mais jogadas à frente e, em lugar de seis 
movimentos, poderíamos pesquisar 15 
movimentos. Se o computador puder fa¬ 
zer isto, provavelmente será imbatível. 

A dificuldade em criar uma árvore para 
15 movimentos, é que o número de 


COMO FAZER 
SUA ASSINATURA 


Para obter seu exemplar mensal (12 
números) da revista Microhobby conten¬ 
do muitos programas para o "TK como 
também para o Apple e o TRS-80, inúme¬ 
ras dicas e as últimas novidades na área de 
informática, você deve fazer uma assina¬ 
tura. 

É importante ressaltar que o recebi¬ 
mento da revista é considerado a partir da 
data de recebimento do pedido de assina¬ 
tura, porém, há um período de 30 dias de 
carência até a revista chegar às suas mãos. 
Os números anteriores da revista podem 
ser adquiridos se as tivermos no mo¬ 
mento do pedido em nossos estoques, 
através do telefone 826-5001., diretamen¬ 
te com o Departamento Comercial. 

Para ter acesso a todas estas vantagens 
basta preencher, corretamente, o cupom 
anexo, colocá lo no correio junto a um 
cheque nominal ou vale postal em nome 
de Micromega Publicações e Material Di¬ 
dático, no valor de CrS 22.000,00 


O envelope deverá ser selado e endere¬ 
çado com os seguinte dizeres: 

f -\ 

MICROMEGA P.M.D. LTDA. 

| Departamento de Assinaturas 
Caixa Postal 54096 

I CEP 01296 - São Paulo, SP. 

v__/ 

e dentro dele não deverá ter nada além do 
cheque e o cupom. 

No verso do cheque, escreva: 

"Destina-se ao pagamento de uma as¬ 
sinatura (12 números) da revista Micro¬ 
hobby". 

Quando este cheque for devolvido ao 
seu Banco com nosso endôsso, servirá (pa¬ 
ra você), de comprovante provisório até 
que nosso recibo seja confeccionado e en¬ 
viado pelo correio. 


ATENÇÃO 

Você que possui um micro de tec¬ 
nologia SINCLAIR ZX81, a partir 
do próximo mês poderá transfor¬ 
má-lo em um poderoso micro, com 
a inclusão de 24 novas funções, 
tais como READ, DATA, RESTO- 
RE, TRON, e muitas outras. 


Instalação de SLOW, HIGH 
SPEED, ALTA RESOLUÇÃO, 
PORTAS PARA COMANDO DE 
CARGAS EXTERNAS, TECLADO 
MECÂNICO, etc. para microcom¬ 
putadores de tecnologia SIN¬ 
CLAIR ZX81. 


Manutenção de microcomputado¬ 
res de tecnologia SINCLAIR e 
TRS. 


WILSON DE ASSIS 

RUA FABRÍCIO CORREIA, 145 

TUCURUVÍ 

FONE 203-7967 

CEP 02311 São Paulo-SP 








































1 RCM PROGRAMO PRINCIPAL 

2 FfiST 

10 GOSUB 450 

20 GOf>Ub 230 

P5 5LOU 

30 GOSUB 970 

35 GOSUB 840 

40 GOSUB 760 

45 GOSUB 040 

50 IP' M=1 THEN GOTO 40 

55 GOSUB 1040 

60 GOSUB ©40 

65 GOTO 40 

230 RLM ******************** 

231 REM CONFIGURACAO INICIRL 
235 DIM 1 $(12,12) 

240 FOR 1=2 TO 11 
250 LET T( (I;2) = ** X" 

260 LET T$(I,il)="X M 
270 LET T% (2 , I) = "X" 

200 LET T$ (11 i I) = ** X ** 

290 NEXT I 

320 FOR 1-3 TO 9 STEP 2 
325 LET T* (1,3) = "B" 

330 LET T$ (14-1,4) »* , B“ 

335 LET T$(I,5)e"B" 

340 LET T$ (1 + 1,8) a**P** 

345 LET Tí (1,9) = "P" 

350 LET T$ (1 + 1,10) *"P" 

355 PRINT AT £2,3*1; "*•* 

360 PR1NT RT 19,3 * I +3; " *” 

365 PPINT RT 16,3#!; 

370 PRINT RT 7,3*I+3j 'B“ 

375 PRINT RT 4,3*1; "S" 

300 PRINT RT 1,3*1+3, "B” 

390 NEXT I 

395 PRINT RT 0,0;“HUMANO" 

396 PRINT RT 4,0;" MICRO" 

397 PRINT RT 21.0; " ■BMI " 

4O0 RETURN 

450 REM ******************** 

451 REM DESENHR E NUMERA O TRBU 
LEIRO 

455 POKE 16418,0 

460 LtTR$ = " n na 

470 LET B < = •• BH ms 

m ma H" 

475 RRNO 

480 FOR 1=1 TO 4 

490 PRINT 

500 PRINT R$; R$; R* 

510 NEXT I 

520 FOR 1=1 TO 8 STEP 2 

530 PRINT RT 0,3*I+7;CHR$ (1*37 

) 

535 PRINT RT 0,3*1 + 10,* CHR$ (1 + 1 
66) 

540 PRINT RT 3*1-1,8;CHR* (37-1 
) ; RT 3*1+2,8; CHR$ (164-1) 

5S0 NEXT I 
560 RETURN 

780 REM ******************+* 

781 REM ENTRRDR 

785 PRINT RT £0,0;" 

790 LET K=0 

791 LET C$="*B" 

795 LET E$=" " 

800 IF INKEVi O**" THEN GOTO 600 
810 IF INKEY $ = "" THEN GOTO S10 
815 LET ES=E$+INKEY$ 

820 PRINT RT 1,0;E$;” " 

825 IF LEN Ei=6 THEN GOTO 835 
830 GOTO 800 _ 

835 PRINT RT £0,0; "M5B3&SÊÊ" 

836 RETURN 

e40 REH ******************** 

841 REM RLTERRCRO DO TRBULEIPO 
845 IF C$(2) —”P" THEN PRINT AT 
5,0;Ei 

850 LET I=CODE Ei(2)-35 
©52 LET J=UfiL Ei (3) +2 
854 LET K=CODE Ei (5) -35 
856 LET L=URL Ei (6) +2 
850 LET M=(Ei(4)="X") 

860 PRINT RT 31-3*J,3*I;"S" 

865 PRINT RT 31-3*L,3*K,*C$(1) 
870 LET Ti(I,J)=" " 

875 LET Ti(K,L)=CÍ(2) 

880 IF L — J < >2 THEN RETURN 
©90 PPINT RT 31-1.5*(J+L) ,1.5 *( 
I+K) ; "0" 

695 LET T$((I*K) /2 , (J+L) / 2 ) = " " 

900 RETURN 

950 REM ******************** 

970 REM PRIMEIRO MOUIMENTO 
975 LET C$ = "£JP** 

980 LET R = IMT (RND*4+.5) 

985 GOTO (R*5+990) 

990 GOTO 960 

995 LET E $ = " B6-C5" 

997 GOTO 1015 

1000 LET ES=" D6-C5" 

1001 GOTO 1015 

1005 LET E$ = " D6-E5" 

1006 GOTO 1015 

1010 LET E$ = " F6-E5" 

1015 GOSUB 840 
1020 RETURN 

1040 REM ******************** 

1041 REM AU0LIACAO 

1042 RFM PARTE R. 


1050 LET CÍ = "OP 1 
1060 POR 1=3 TO IO 
1070 FOR J = 3 TO 10 

1080 IF Ti(I,J><>"P" THEN GOTO 1 
1 J O 

1090 IF T|(1*1,J-l) <>"D" OR T$(I 

♦2,J-£)<>" " THEN GOTO 1100 

1091 LET T$(I + 1,«J-1) =“ " 

1092 PRINT RT 34-3 *J,3*I+3; 

1093 LET E| = " "+CMR % (35 + 1) ♦CHR % 

(J*26)♦"+CMR4 (37+1)+CHRI <J + 

24) 

1095 RETURN 

1100 IF TS (I-1,J—1) <>"B" OR T$(I 

-2,0-2)<>" " THEN GOTO 1110 

1101 LET T$(I-1,J-1)=" " 

1102 PRINT RT 34-3*J,3*1-3; 

1103 LET Ei = " "+CHRÍ (35 + 1) +CHR % 
(£6+0)♦"-"+CMRÍ (33+D+CHRt IJ + 

24) 

1105 RETURN 

1110 NEXT O 

1111 NEXT I 

1120 REM PRRTE B. 

1130 FOR 1=3 TO 10 

1140 FOR 3=3 TO 10 _ . 

1150 IF Ti (I,J) <>”P" THEN GOTO 1 
220 

1160 IF Tt (1-1,J-l) <>"B" OR T$(I 
+ 1,3 + 1) O" " THEN GOTO 1160 

1165 IF Ti(1,0+2)<>"P" THEN GOTO 
1170 

1166 LET Ei=" "+CHRI (35+1)+CHRÍ 
(0*28) +••-••+CHRÍ (I+36)+CHRÍ (U + 

1170 IF T TÍ í (I+2, J+2) < >"P" THEN GO 
TO 1200 

1173 LET E$ = " ** +CHRÍ (37 + 1) +CHR % 

(J+28) +"-"+CHRÍ (1+36) +CHRI (J + 

27) 

1175 RETURN „,_ 

1180 IF Ti ( I+1,J-1) < >"B" OR Ti 4 I 
-1,U+1)<>" " THEN GOTO 1220 

1185 IF T|(1-2,J+2)<>"P" THEN GO 
TO 1190 

1186 LET E$ = " "+CHRÍ (33 + 1) +CHR S 
(J+29) +'* —"+CHRS (I + 34)+CHRi (J + 

27) 

1188 RETURN 

1190 IF T$ (I,J+2) <>"P" THEN GOTO 
1210 

1195 LET Ei=" "+CHRI (35+1)fCHRi 
(J+28) +* , -"+CHRÍ (1+34) +CHRI <J + 

27) 

1197 RETURN 

1200 IF T$ fl + l , J-l) < >** *' THEN GO 

TO 1220 

1205 LET E$=" "+CHRÍ (35+1)+CHRÍ 
(J+26)+"-"+CHR$ (1+36)+CHR» (J+ 

25) 

1207 RETURN 

1210 IF Ti (1-1, J-l) < >** " THEN GO 
TO 1220 

1215 LET E$s" ** +CHR $ (35 + 1) +CHRÍ 

( J + 26) +"+CHRÍ CI+34) +CMR$ (J + 
25) 

1217 RETURN 

1220 NEXT J 

1221 NEXT I 

1230 REM PARTE C. 

1240 FOR 1=3 TO 10 
1250 FOR J=3 TO 10 

1255 IF T$Cl,J)<>"P" THEN GOTO 1 
340 

1260 IF Ti (1-1 , J-l) < >** ** OR Ti ( I 

-2,J-2) =* B" THEN GOTO 1260 
1270 IF T $ ( I—2,J) =" " AND T$(I,J 

-2) =**B ’* THEN GOTO 1280 
1273 LET Ei=" "+CHR$ (35+1)+CHR$ 
(J+25)+"-"+CHRi (1+34)+CHR$ (J+ 

25) 

1275 RETURN 

1230 IF Ti CI + 1,J-l) <> M " OR T $ (I 
+ 2 , J—2 ) = "8** THEN GOTO 134® 

1290 IF T i ( I +2 , J) = ” AND T$(I,d 
-2)="B" THEN GOTO 1340 
1300 LET EÍ=" "+CHR$ (35+1)+CHRÍ 
(J+26) +••-" +CHR$ (I+36)+CHR$ (J + 
25) 

1310 RETURN 
1340 NEXT J 
1350 NEXT I 

1400 REM OUALOUER MOUIMENTO POSS 
IUEL 

1410 FOR 1=3 TO 10 
1420 FOR J =3 TO 10 

1430 IF T$(I,JK>"P" THEN GOTO 1 
500 

1440 IF TS (1-1, J-l) < >" ** THEN GO 

TO 1470 

1450 LET ES=" "+CHR$ (35+1)+CHRS 
(J+26) +"+CHRS (I+34) *GHR $ (J + 
25) 

1460 RETURN 

1470 IF Ti ( 1 + 1, J-l) < >** “ THEN GO 

TO 1500 

1480 LET ES = " "+CHR % (35 + D+CHRÍ 

(J+26)+"-"+CHR| (1+36)+CHRI (J+ 

25) 

1490 RETURN 
1500 NEXT J 
1510 NEXT I 
1520 5TOP 


fazer com que a dama ocupe a casa que 
contém a peça preta, e em seguida se mo¬ 
va para a casa desejada. 

A subrotina da linha 840 é chamada 
após cada movimento. Ela altera o array 
e o display para refletir a nova configura¬ 
ção. 

ROTINA DE AVALIAÇÃO 

A última subrotina (linha 1040) é a 
maior e mais importante. É a rotina de 
avaliação, na qual o computador (pretas) 
decide que movimento executar. A rotina 
é baseada no seguinte algoritmo: 


1. Se as pretas estão em posição de 
capturar alguma peça branca, então que o 
façam. 

2. Se as pretas estão ameaçadas de 
captura pelas brancas então: 

2a. se for possível a defesa através do 
bloqueio da retaguarda então que o fa¬ 
çam, senão; 

2b. se for possível movimentar a peça 
ameaçada então que o façam, senão; 

3. As pretas fazem o primeiro movi¬ 
mento que não resulte em captura da pe¬ 
ça movida. Se todos os movimentos resul¬ 


tarem em captura, uma peça qualquer é 
movida. 

Como você pode ver, este é um algorit¬ 
mo simples e descomplicado que serve pa¬ 
ra manter as pretas longe dos problemas. 
Isto resulta em um programa que não é 
particularmente agressivo, mas que usual¬ 
mente se defende adequadamente. 

A rotina de avaliação se divide em três 
maiores partes. Parte A, na qual as pretas 
procuram possíveis capturas, corresponde 
à parte 1 do algoritmo acima. Parte B, na 
qual as pretas se defendem de capturas, 
corresponde à parte 2 do algoritmo, e 
Parte C onde as pretas procuram um mo¬ 
vimento que não resulte em captura, cor¬ 
respondente à parte 3. A organização é | 
hierárquica. Se as pretas não encontram 
movimentos a serem feitos na Parte A, o 
controle passa para a Parte B. Se nenhum 
movimento resulta daqui, então o contro- j 
le passa para a Parte C. 

Vamos dissecar a Parte A da subrotina 
e ver como ela funciona. A Parte A é im¬ 
plementada com dois loops FOR. . . 
NEXT; cada um variando de 3 a 10, var¬ 
rendo todo o tabuleiro. 

A linha 1080 percorre todos os qua¬ 
drados do tabuleiro procurando por uma 
peça preta. Quando esta é encontrada, as i 
linhas 1090 e 1100 tomam lugar. Elas 
procuram por uma situação especial que 
pode ocorrer em dois dos quatro quadra- 1 
dos adjacentes: a situação em que uma pe¬ 
ça branca possa ser capturada. 

Vamos assumir que uma peça preta es¬ 
teja localizada em T$(6,6). Esta situação 
é ilustrada na Fig. 1. 


T$(I,J) 



T 



T$(I-1,J-1) 




T$(I+1,J—1) 

4- 

T$(t —2, J—2] 

1 


-U 

T$(I+2,J—2) 


Fig. 1 

A linha 1090 procura por uma peça 
branca em T$(I+1,J—1) e por uma casa } 
vazia em T$(I+2,J—2). Se ambas as con¬ 
dições são satisfeitas um vazio é colocado \ 
em T$(l+1 ,J—1), a subrotina armazena o I 
movimento (salto) em E$, chama a subro- j 
tina da linha 840 e retorna ao programa . 
principal. Se por outro lado, uma ou am- .1 
bas as condições não forem satisfeitas, o 
programa passa para a linha 1100. Esta li- 1 
nha analisará as casas (I—1,J—1) e i 
(l-2,J-2). Apenas quatro casas precisam 
ser consideradas quando o programa pro¬ 
curar uma possível captura; as casas atrás 
da peça podem ser ignoradas, uma vez 
que apenas as damas podem andar para 
trás e este programa não prevê damas para 
as pretas. Se não houver captura possível, 
o controle passa para as Partes B e C da 
subrotina, cujo funcionamento é seme¬ 
lhante a Parte A. 


























dá as dicas 


de trabalho, os comandos usados, tudo 
com exemplos-ilustrativos. E, na última 
parte, o autor parte para as aplicações 
mais avançadas do Visicalc mostrando 
por exemplo, o uso das teclas especiais, 
as funções do software, além de expor 
outras fontes de consultas para os mais 
interessados. 


CP/IN/I — Guia do Usuário 


Circuitos Digitais e 
Microprocessadores 


Thom Hogan 

É um dos melhores livros já feitos 
sobre o sistema operacional de micro¬ 
computadores. Agora, com a capa mu¬ 
dada (o tamanho da letra do título do 
livros foi aumentada), o livro foi reim¬ 
presso e já está sendo vendido para os 
leitores. 

O livro é dividido em oito capítulos e 
oito apêndices que abordam desde o 
histórico do CP/M até orientações aos 
usuários dos sitemas de microcompuía- 
ção, quanto aos fabricantes, escolha de 
disquetes, bibliografia orientada, etc. 

Inicialmente, ele traz os sistemas 
operacionais do CP/M-80 e 86, as fun¬ 
ções do CP/M dentro de um sistema, 
disquetes, comparação dos sistemas se¬ 
melhantes, explicação dos comandos 
existentes. Depois, o livro parte para 
falar sobre os utilitários de linguagem 
Assembler — e seus comandos —, so¬ 
bre os derivados do CP/M (MP/M por 
exemplo), seus aspectos técnicos, sua 
estrutura e, finalmente, os apêndices. 
Estes fornecem um sumário dos corna¬ 
dos, os códigos dos caracteres Ascll, 


Visicalc — Guia do Usuário 


HerbertTaub 


A editora, segundo seu diretor-ge¬ 
ral, Milton Mira de Assumpção Filho, 
pretende mudar a capa numa próxima 
reimpressão. O livro, traduzido por pro¬ 
fessores da UFRGS e da UERJ, é desti¬ 
nado para estudantes do curso de En¬ 
genharia Eletrônica e de Ciências da 
Computação. É um curso sobre circui¬ 
tos digitais e microprocessadores. 

Segundo o autor, no prefácio do 
livro, o mesmo se destina a um curso de 
circuitos digitais correspondente a um 
semestre de aulas numa universidade. É 
um texto introdutório apropriado para o 
estudante dos primeiros anos de um 
curso na área de Eletrônica. 

O livro cobre os princípios básicos 
de sistemas digitais e de projeto lógico, 
fornece introdução a microprocessado¬ 
res e a sistemas baseados em micro¬ 
processadores. 

As explicações sobre os vários te¬ 
mas (teorema da Álgebra de Boole, Nú¬ 
meros binários e variáveis lógicas, có¬ 
digos numéricos, circuitos seqüenciais, 
etc.), são complementadas com fluxo- 
gramas, diagramas e equações. No fi¬ 
nal,' o autor fornece problemas a serem 
resolvidos pelos leitores referentes aos 
assuntos abordados nos 11 capítulos do 
livro. 


David M. Castlewitz 

É um guia prático para quem se in¬ 
teressa e precisa do Visicalc, um soft¬ 
ware destinado à execução das chama¬ 
das "folhas eletrônicas". 

O livro, segundo a editora, deve ser 
usado e não apenas lido pois se preten¬ 
de que o mesmo seja um guia do usuá¬ 
rio de Visicalc. Ele fornece fórmulas, 
comandos e funções às quais o leitor 
deve utilizar juntamente com um com¬ 
putador. 

Para torná-lo realmente um guia, o 
autor dividiu o livro em partes formadas 
de lições sobre as várias etapas do 
aprendizado prático do Visicalc. Assim 
sendo, o leitor encontra na primeira par¬ 
te, a introdução às técnicas básicas do 
software para aplicações financeiras que 
aborda temas como a entrada de dados 
(diferenciando-a nos micros Apple II, 
Apple III, Commodore e IBM PC), a cor 
reção de dados, etc. A outra parte fala 
sobre a reorganização da tela da página 


ERRATA 


O livro da McGrawHill — Cons¬ 
trua o seu Próprio Computador, 
usando o MP-Z80 — foi mudada a 
sua capa e o título passou a ser: 
Construa o seu próprio computador, 
usando o Z-80. O nome do autor, não 
é Steve Garcia (como foi publicado 
na última edição — número 14), e sim 
Steve Ciarcia. 
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Álvaro A.L. Domingues 


Em outubro de 1981 em Tóquio, 
durante quatro dias de conferências, os 
japoneses lançaram no ar uma idéia: o 
computador de quinta geração. Este 
computador deveria, além de 
apresentar um conceito de hardware 
totalmente diferente, imitar a 
inteligência humana. Quando ele 
entrasse em funcionamento na década 
de 90, seria capaz de manipular 
grandes massas de informações, fazer 
inferências, aprender com a 
experiência e, enfim, pensar. 
Imediatamente após, uma verba de 
43 milhões de dólares foi destinada 
para a primeira fase do projeto. 
Cabe aqui uma pergunta 
fundamental para determinarmos se 
eles terão ou não sucesso em suas 
pesquisas: 

PODEM AS 
MÁQUINAS 
PENSAR ? 


A pergunta não é nova. Alan Mathison 
Turing, matemático inglês, formulou 
nos anos 50, nos mesmos termos. Ele foi 
um dos pioneiros no desenvolvimento dos 
computadores digitais e muitos de seus 
princípios ainda são usados nos moderno: 
computadores. Seus estudos relativos ao 
que mais tarde seria chamado de Inteli 
gência Artificial continuam atuais. 

Turing, ao começar seu trabalho com 
computadores, sabia que suas idéias a res¬ 
peito da capacidade de uma máquina pen 
sar, encontrariam oposição. Então, num 
artigo intitulado "Computadores e Inteli 
gência" procurou dar uma resposta à esta 
pergunta. 

A primeira dificuldade para realizar es¬ 
ta tarefa é definir o que é "pensar" e o 
que é "máquina". Estes termos têm mi 
lhares de definições possíveis, porque ca 
da um de nós tem uma idéia, nem sempre 
exprimível em palavras, do que seja cada 
um deles. Podemos definir como "máqui¬ 
na" qualquer objeto construído para rea¬ 
lizar uma ou várias tarefas. A sua caracte¬ 
rística principal é que ela é artificial , e 
neste ponto todos concordam. Agora, pa¬ 
ra julgarmos se uma máquina pensa ou 
não, poderemos usar o mesmo critério 
que usamos para julgarmos se um ser hu¬ 
mano é ou não inteligente, ou seja, se estí 
pessoa pode manter um diálogo inteligente. 

Quando formos julgar se uma máquina 
é "inteligente" ou não, poderemos ser le¬ 
vados por sua aparência não humana e 
não admitirmos ser ela capaz de "pensar 


O jogo da imitação 


Como todos nós somos passíveis deste 
tipo de preconceito, Turing imaginou um 
artifício: o jogo da imitação. 

Neste jogo, participam três jogadores: 
dois homens e uma máquina. Um dos ho¬ 
mens tem como função descobrir quem é 
a máquina e quem é o homem, fazendo 
determinadas perguntas. As perguntas e 
respostas são enviadas por um mensagei¬ 
ro, para se evitar um contato entre os jo¬ 
gadores. 

Se, neste jogo, o terceiro jogador não 
souber diferenciar quem é o homem e 
quem é a máquina, então poderemos di 
zer que a máquina pensa. 

O diálogo abaixo mostra um exemplo 
de um conjunto de perguntas e respostas 
entre um homem e uma máquina hipoté¬ 
tica que, se tivesse acontecido em um jo¬ 
go da imitação, poderia ser perfeitamente 
confundido com um diálogo entre dois 
humanos (1). 

Homem (referindo-se a uma poesia de 
Shakespeare apresentada pela máquina): 
No primeiro verso do soneto, que diz 
"Devo eu te comparar a um dia de verão" 
(2); "Um dia de primavera não estaria 
igualmente bem ou ainda melhor?" 


e 
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Máquina: Não tem o número certo de 
sílabas. 

Homem: Que tal "um dia de inver¬ 
no"? (3) Tem o número correto de sílabas. 

Máquina: Mas ninguém quer ser com¬ 
parado a um dia de inverno. 

Homem: O soneto fala sobre o Sr. 
Pickwick, não? 

Máquina: Sim. 

Homem: Você diria que o Sr. Pickwick 
faz lembrar o Natal? 

Máquina: De certo modo. 

Homem: Contudo, o Natal na Inglater¬ 
ra é um dia de inverno e não creio, que o 
Sr. Pickwick fizesse objeções à essa com¬ 
paração. 

Máquina: Não creio que você esteja fa¬ 
lando sério. Quando se diz "um dia de in¬ 
verno", quer-se dizer um dia típico de in¬ 
verno e não um dia especial como o Natal. 

Turing desenvolveu este teste para não 
esbarrar com problemas de ordem metafí¬ 
sica, como a possibilidade de uma máqui¬ 
na ter consciência de si mesma, ou seja, 
chegar um dia a dizer: "Penso, logo exis¬ 
to", como um robô-Descartes. 

Turing, em outras palavras, admite que 
o que nos interessa é um resultado "inteli¬ 
gente", uma resposta adequada ao proble¬ 
ma proposto, não importando se a máqui¬ 
na tem ou não'consciência, ou emoções. 

Um pouco de história 

0 precursor dos computadores foi 
Babagge, professor de matemática em 
Cambridge que, entre 1822 e 1833, pla¬ 
nejou a Máquina Analítica. Esta máquina 
possuía uma unidade aritmética, respon¬ 
sável pelos cálculos aritméticos e opera¬ 
ções elementares de decisão; uma memó¬ 
ria com capacidade para mil números de 
50 dígitos; uma unidade de controle que 
comandaria todas as partes da máquina 
por meio de cartões perfurados; uma en¬ 
trada de dados por cartões perfurados e 
uma saída, que forneceria os resultados 
em cartões perfurados ou por meio de 
uma máquina de linotipia automática. 

Esta máquina nunca pôde ser concluí¬ 
da, mas serviu de base para a primeira má¬ 
quina analítica, o Mark I, construída qua¬ 
se um século mais tarde,-em 1930, por 
Aiken, um professor de matemática em 
Harward. 

O primeiro computador digno deste 
nome foi o ENIAC, construído em 1946, 
na Universidade da Pensilvania. Este com¬ 
putador foi o primeiro a utilizar circuitos 
eletrônicos, se bem que a eletrônica ainda 
estava dando seus primeiros passos (o 
ENIAC usava cerca de 18 mil válvulas e 
1.500 relés). 

(1) Adaptado do artigo Computadores e Inte¬ 
ligência, de A.M. Turing. 

(2) e (3) No original, Summer e Winter. 


Em 1950, no artigo já citado, Turing 
introduziu a questão das possibilidades 
de pensamento em uma máquina. Pro¬ 
curou, neste artigo, levantar todas as obje¬ 
ções e contra argumentá-las, bem como 
estabelecer um teste que permitisse julgar 
se uma máquina é "inteligente" ou não. 

Além de Turing, um outro matemáti¬ 
co célebre se dedicou ao desenvolvimento 
do "cérebro" artificial: John Von 
Neumann. Este pesquisador americano, 
como muitos de seus seguidores, acredi¬ 
tava que, para se desenvolver a inteligên¬ 
cia em uma máquina era necessário co¬ 
nhecer-se primeiro o célebro humano. 
Tentou, então, formular uma teoria mate¬ 
mática do comportamento do homem, 
mas, diante do tamanho descomunal dos 
primeiros computadores, duvidou da pos¬ 
sibilidade de concretizar seu objetivo. 

Seguiram-se numerosas discussões de 
caráter filosófico até que, em 1956, 
cunhou-se o termo "Inteligência Artifi¬ 
cial" para estas pesquisas, numa conferên¬ 
cia que reuniu os primeiros especialistas 
do ramo. Todavia, apenas o nome da 
disciplina foi um consenso geral. Os pes¬ 
quisadores divergiam nos métodos para 
alcançar-se os objetivos da nova ciência. 
Muitos acreditavam ser necessário uma 
teoria e um modelo do cérebro humano, 
enquanto que outros achavam necessário 
fornecer problemas simples às máquinas 
já existentes. 

Entretanto, estas discussões tiveram 
fim quando dois pesquisadores da Rand 
Corporation, Allen Newell e Herbert 
Simon descobriram que não é necessário 
compreender o cérebro humano para dar 
inteligência à máquina, mas sim com¬ 
preender o comportamento humano. Am¬ 
bos trabalhavam na Rand Corporation, 
fazendo pesquisas sobre psicosociologia 
para a força aérea americana e, por brin¬ 
cadeira, introduziram os resultados de 
suas pesquisas no computador, de tal ma¬ 
neira que a máquina reproduzisse deter¬ 
minados comportamentos tipicamente 
humanos. O resultado foi surpreendente: 
o computador entre outras coisas, de¬ 
monstrou um teorema de matemática de 
uma maneira mais elegante do que a co- 
mumente aceita. 

A partir daí, não mais seria necessário 
estudar o cérebro, mas somente suas fun¬ 
ções, para poder se dar uma inteligência à 
máquina. Em outras palavras, seria prefe¬ 
rível a psicologia à fisiologia. 

A partir da década de 60, muitos 
outros pesquisadores seguiram a linha de 
raciocínio de Newell e Simon, divididos 
em duas escolas. Uma delas, preocupada 
em desenvolver máquinas capazes de tra¬ 
balhar com regras lógicas simples, como 
silogismos do tipo: 


Todos os homens são mortais 

Logo : Sócrates é mortal . 

A outra, preocupou-se em dar às má¬ 
quinas conhecimentos especializados de 
determinada ciência. Programas deste tipo 
tornaram-se famosos como, por exemplo, 
o Mycin, um programa para análises clíni¬ 
cas, baseados em sintomas do paciente. 

Dentro desta filosofia, surgiu o Shrd/u, 
um programa destinado a pesquisas no 
desenvolvimento de uma teoria do apren¬ 
dizado para ser aplicada na própria 
Inteligência Artificial. Este programa 
organiza objetos de acordo com as or¬ 
dens de seu programador, por meio de 
um braço mecânico. Quando solicitado,ele 
descreve seu comportamento.Eis um diá¬ 
logo entre um homem e o Shrd/u: 

Homem: O que a caixa contém? 

Shrd/u: A pirâmide azul e o cubo azul. 

Homem: Quantos cubos estão fora da 
caixa? 

Shrd/u: Quatro. 

Homem: Algum deles é mais estreito 
do que aquele que está dentro da caixa? 

Shrd/u: Sim, o cubo vermelho. 

Homem: Existe um campanário fora 
da caixa? 

Shrd/u: Desculpe, mas eu não sei o que 
significa campanário. 

Homem: Um campanário são dois 
cubos e uma pirâmide empilhados. 

Shrd/u: Compreendo. 

Homem: Existe algum campanário? 

Shrd/u: Não. 

Homem: Construa um. 

A máquina cumpre a ordem. 

Homem: Por que você apanhou a esfe¬ 
ra azul? 

Shrd/u: Para me livrar dela. 

Homem: Por que você pegou o cubo 
vermelho? 

Shrd/u: Para colocá-lo sobre o cubo 
amarelo (4). 

Certamente este diálogo satisfaz, em 
parte, o teste de Turing. Poderemos con¬ 
fundir este computador com uma criança, 
se ambos estiverem fazendo o mesmo tipo 
de jogo, ou seja, estejam "brincando" 
com blocos. Se fizermos qualquer outra 
pergunta fora das regras do jogo que ele 
opera, Shrd/u não será capaz de responder 
satisfatoriamente. 

Este é o problema básico dos progra¬ 
mas "inteligentes": são especialistas total¬ 
mente "bitolados". 

As máquinas jogadoras de xadrez 

Entre os programas especialistas figu¬ 
ram os programas jogadores de xadrez. 
A razão para seu largo emprego é que o 
jogo de xadrez é considerado uma ativida¬ 
de de pessoas inteligentes, é compleko e 
pode ser completamente formalizado por- 

(4) Adaptado do artigo Em Defesa dos Robôs, 

de Cari Sagan. 
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que possui um número finito de regras fi¬ 
xas. 

O jogo de xadrez é considerado um jo¬ 
go de informação perfeita , ou seja, um jo¬ 
go onde ambos os jogadores co¬ 

nhecem todas as regras, e têm as mesmas 
informações sobre o jogo, quer de si pró¬ 
prio, quer do adversário. Além disso, não 
existe uma dependência a fatores aleató¬ 
rios (jogo de cartas). Um outro exemplo 
de jogo de informação perfeita é o conhe¬ 
cido jogo da velha. É característico deste 
tipo de jogo que, se ambos os jogadores 
usarem a melhor estratégia possível, o jo¬ 
go terminará sempre com o mesmo resul¬ 
tado. No jogo da velha, este resultado é 
um empate e pode ser estabelecido um 
algoritmo para que este resultado seja 
atingido. 

Entretanto, apesar de ser um jogo de 
informação perfeita, o xadrez depende 
da análise de inúmeras variáveis. Por 
exemplo, numa partida de 50 lances deve¬ 
remos examinar cerca de IO 120 alternati¬ 
vas! 

A primeira pergunta que surge é: como 
um jogador de xadrez, diante de tantas al¬ 
ternativas, procede para resolver o pro¬ 
blema de qual é o próximo lance? A se¬ 
gunda é: como transferir este tipo de ra¬ 
ciocínio para uma máquina? 

Existem inúmeros programas para jo¬ 
gar-se xadrez, inclusive para computado¬ 
res pessoais. O que se faz para resolver es¬ 
te problema é usar o raciocínio heurísti¬ 
co , ou seja, ao invés de se analisar todas as 
alternativas, analisa-se apenas algumas que 
são consideradas relevantes. 

Agora surge outra pergunta: como iso¬ 
lar as alternativas relevantes? 

O jogador humano, no início do seu 
aprendizado, joga aleatoriamente, perden¬ 
do muitas partidas e ganhando algumas. 
Durante este aprendizado ele pode rece¬ 
ber instruções de um mestre ou aprender 
pela própria experiência (por exemplo, 
evitar o xeque pastor , após cair nesta ar¬ 
madilha duas ou três vezes). Pode-se tam¬ 
bém aprender com manuais e jogos de 
grandes mestres ou tentando resolver pro¬ 
blemas de xadrez que aparecem em se¬ 
ções especializadas em alguns jornais. 
Com estas informações, o jogador prin¬ 
cipiante, pouco a pouco, adquire um es¬ 
tilo de jogo, que permitirá a ele saber 
quais são os lances relevantes. 

Como isto ocorre, ainda não sabemos. 
Pode-se, à maneira de Turing, conseguir- 
se um resultado satisfatório, de forma 
que, ao analisarmos uma partida jogada 
por máquinas, este jogo seja semelhante a 
uma partida entre dois jogadores de um 
determinado nível (médio, por exemplo). 
Segundo alguns analistas de sistemas rus¬ 
sos, pode-se construir uma máquina que 
jogue ao nível de um mestre nacional so¬ 


viético (um nível muito bom, por sinal). 

O processo empregado é, em primeiro 
lugar, atribuir-se valores crescentes às pe¬ 
ças, de maneira que o peão receba o valor 
mínimo e o rei um valor máximo, muito 
maior que qualquer outra pedra (digamos 
100 mil), enquanto que para a rainha, se¬ 
gunda peça em importância, receba, por 
exemplo, 100). A seguir, devemos, basea¬ 
dos num conhecimento prévio do iogo, 
atribuir valores às posições relativas às pe¬ 
ças (por exemplo, um peão que pode ser 
coroado — atingindo a oitava casa — deve 
ter um valor bem maior que um bispo 


preso em uma posição difícil). A seguir, 
deveremos dotar a máquina de uma me¬ 
mória capaz de guardar uma jogada infe¬ 
liz para que não mais a repita, bem como 
boas jogadas, oara repetí-las em ocasiões 
oportunas. Isto deve ocorrer não apenas 
num lance exatamente idêntico, mas tam¬ 
bém em lances semelhantes (por exemplo, 
um xeque pastor é uma situação do início 
de jogo, mas armadilhas semelhantes po¬ 
dem ser empregadas no jogo médio). A 
máquina deve ser dotada também de uma 
"prudência'', ou seja, ao analisar dois ou 
três lances à frente, escolhendo o lance 


Resposta de Turing: Mesmo que uma| 

máquina não possa responder um deterá 
minado tipo de problema, é sempre po: 
sível construir uma que possa. Além dii 
so, nem mesmo os sêres humanos podem 
ser capazes de resolver todo e qualquer 
problema. Somos limitados pelos nosso< 
conhecimentos e nossas habilidades. To 
davia, podemos encontrar um outro sei 
humano que pode resolver um problemi 
para o qual não conseguimos encontrar 
solução, embora esta pessoa possa ser in¬ 
capaz de fazer determinadas coisas que 
nós sabemos. 

4) O argumento da consciência 

Somente quando as máquinas puderem 

ter consciência, ou seja, saberem que sãq 
e não apenas serem, é que poderemoi 
admitir que as máquinas pensam. 

Resposta de Turing: Este tipo de obje 
ção cai num sofipsismo, ou seja, só pode| 
remos saber se uma máquina pensa se pu¬ 
dermos nos tornar a própria máquina. 0 
que na realidade devemos fazer, é julgai 
se uma máquina é inteligente ou não pd 
los resultados que ela nos fornece, comq 
fazemos com as pessoas à nossa volta. 

5) Argumentos de várias incapacidades 

Este argumento diz que uma determi 

nada tarefa é impossível de ser realizadi 
pela máquina. Por exemplo, ter sentimen 
tos, ser criativa, tenha iniciativa, aprend* 
com a experiência, etc. 

Resposta de Turing: As críticas apre 
sentadas são formas disfarçadas do argii 
mento da consciência e devem ser respon 
didas da mesma maneira. 

6) As objeções de Ada Byron, Lady 

Lovelace 

O nome Ada Byron está ligado á Má 
quina Analítica, de Charles Babbage. El 
pode ser' considerada primeira programa 
dora de computadores da história e forne 
ceu à posteridade uma descrição por me 
norizada da Máquina Analítica, numa dijj 
sertação datada de 1842. Nesta disserte 
ção encontramos o seguinte trecho: "/ 
Máquina Analítica não tem nenhuma prehj 
tensão de criar o que quer que seja. P< 
fazer tudo o que saibamos ordenar 
que faça" (o grifo é de Ada Byron): 


As objeções à Inteligência Artificial 
levantadas por Turing e as suas respostas 

a elas, 

Turing, em seu artigo Computadores e 
Inteligência levantou diversas objeções à 
Inteligência Artificial e tentou respondê- 
las. Suas respostas são bastante inteligen¬ 
tes e difíceis de contestar, o que os convi¬ 
da a, pelo menos, examinar nossos concei¬ 
tos a respeito do que é pensar. 

As objeções são as seguintes: 

1) Objeção Teológica 

Pensar é uma função da alma humana, 
o dom fornecido ao homem por Deus. 

Resposta de Turing: Se Deus pode dar 
este dom a um homem, pode dá-lo a qual¬ 
quer outro, como, por exemplo, um ele¬ 
fante ou. . . uma máquina, porque Deus é 
onipotente e, portanto, não possui qual¬ 
quer limitação em seus poderes. 

2) Objeções da "Cabeça na Areia " 

As consequências do pensamento em 
uma máquina serão terríveis. Esperemos 
que elas nunca sejam capazes de fazê-lo. 

Resposta de Turing: Isto não é uma 
objeção propriamente e não passa de uma 
simples negativa de ver a realidade. Quem 
defende esta opiniãck não examinou a 
questão a fundo e apenas esconde sua ca¬ 
beça na areia, como um avestruz. . . 

3) Objeção matemática 

Certos teoremas na lógica matemática 
demonstram que há limitações nos pode¬ 
res de uma máquina (Teorema de Gòdel, 
em 1931, de Church ern 1936, de Kleene 
em 1935, Rosser e Turing em 1937). Es¬ 
tes teoremas mostram, de maneira direta 
ou indireta que é impossível construir 
uma máquina capaz de resolver qualquer 
problema dado. Isto é devido ao proces¬ 
so de resolução de problemas por má¬ 
quinas, pelo menos na época de Turing, 
era baseado na axiomatização e formaliza¬ 
ção matemáticas. Gõdel provou queé im¬ 
possível axiomatizar a aritmética e o pró¬ 
prio Turing provou que é impossível cons¬ 
truir uma máquina capaz de resolver qual¬ 
quer tipo de problema. 
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que dará a melhor resposta diante de 
qualquer opção de seu adversário. Em 
outras palavras, a máquina não deve me¬ 
nosprezar o adversário. 

Poderemos, ainda, "ensinar" a máqui¬ 
na a considerar certas posições possíveis 
como irrelevantes, pois dificilmente se¬ 
riam jogadas. Como, por exemplo, se ela 
estiver diante de uma situação que pode 
conduzir a um xeque-mate do rei adversá¬ 
rio, não há necessidade de se examinar 
lances de peças que não estão envolvidas 
nesta ação, a não ser os que podem amea¬ 
çar o seu próprio rei. 


Resposta de Turing: Isso não impede 

que possamos construir uma máquina que 
possa "aprender" ou a "pensar por si mes¬ 
ma", desde que saibamos ordenar-lhe isso. 

7) O argumento da continuidade do 
sistema nervoso 

0 sistema nervoso, ao contrário do 
computador, não é uma máquina de 
estados discretos. 

Resposta de Turing: No jogo da imi¬ 
tação (ver texto do artigo).o interroga¬ 
dor não pode tirar qualquer vantagem dis¬ 
so, porque um computador poderá resol¬ 
ver qualquer problema por métodos nu¬ 
méricos aproximados. 

8) O argumento da informalidade do 
comportamento humano 

Ê; impossível descrever um conjunto de 
regras que pretenda predizer o que um 
homem faria num dado instante, em qual¬ 
quer circunstância imaginável. 

Resposta de Turing: Existe aí uma 
confusão entre regras de condutas e leis 
de comportamento. Quem conhece psico¬ 
logia pode dizer que tais leis de compor¬ 
tamento existem, portanto é possível 
construir uma máquina que obedeça tais 
leis. 

9) O argumento da percepção 
extra sensória / 

Certos fenômenos parapsicológicos (te¬ 
lepatia, clarividência, premonição e psi- 
cocinética) não podem ser explicados por 
leis de nossa ciência tradicional. Nenhuma 
máquina pode ser capaz de reproduzir es¬ 
tes fenômenos. 

Resposta de Turing: É necessário mu¬ 
dar radicalmente o jogo da imitação para 
podermos encarar estes fenômenos. Ainda 
não tenho uma resposta definitiva, mas 
devemos ter em mente que poderemos 
tentar isolar estes fenômenos de nossa 
prova (o jogo da imitação). 


Uma objeção ao jogo da imitação 


O jogo da imitação é um meio interes¬ 
sante para determinar se uma máquina é 
ou não inteligente. Entretanto, um pro¬ 
grama chamado Doctor (ou Eliza) pode 
pô-lo em dúvida. Este programa imita um 


Apesar de todas estas implementações, 
um Grande Mestre Internacional continua 
sendo infinitamente mais inteligente que 
a melhor das máquinas de xadrez por uma 
razão muito simples: não sabemos como 
eles pensam. Parece que o seu raciocínio 
não emprega uma simples avaliáção quan¬ 
titativa, como a que desejamos impor à 
máquina. 

Isto nos ensina uma coisa: que precisa¬ 
mos descobrir muita coisa a respeito do 
próprio homem antes de pretender avan¬ 
çar um pouco mais na Inteligência Artifi¬ 
cial. O 


diálogo entre um psicanalista e seu pa¬ 
ciente e, para quem observa desconhecen¬ 
do que o analista é uma máquina, engana- 
se perfeitamente. Observe o seguinte diá¬ 
logo: 

Terapeuta: Por que você veio aqui? 

Paciente: Eu não queria vir, mas minha 
mãe insistiu. 

Terapeuta: Por que sua mãe insistiu? 

Paciente: Ela acha que eu estou fican¬ 
do meio perturbado. 

Terapeuta: Você se sente perturbado? 

Paciente: Não, mas achei melhor vir as¬ 
sim mesmo. Não gosto de contrariar mi¬ 
nha mãe. 

Terapêuta: Por que não gosta de con¬ 
trariar sua mãe? 

Paciente: Por que você me aborrece 
com todas estas perguntas? 

Terapêuta: Você parece estar aborreci¬ 
do com estas perguntas. 

Paciente: Eu não gosto que me pergun¬ 
tem tolices. 

Terapêuta: Você está evitando falar em 

sua mãe. 

E assim por diante. . . 

O interessante é que todo o diálogo pa¬ 
rece inteligente, principalmente a última 
. resposta. Entretanto este programa ape¬ 
nas transforma em pergunta as informa¬ 
ções fornecidas pelo próprio paciente. 
Quanto a última frase, ela pode ser obtida 
simplesmente incluindo um procedimento 
que considere pai e mãe como palavras 
chaves e analise as respostas seguintes, 
verificando o seu aparecimento ou não. 
No caso, o paciente evitou responder a 
pergunta do analista a respeito de sua 
submissão à sua mãe. O computador, "in¬ 
teligentemente", o põe frente à frente 
com o problema. 

Turing provavelmente aprovaria esta 
máquina, mas, na realidade, ela não é 
"inteligente". Tudo o que ela faz é pro¬ 
curar termos chaves nas perguntas e res¬ 
postas do paciente e transformá-las em 
outra estrutura, por exemplo, transfor¬ 
mando perguntas em respostas e vice-ver¬ 
sa. Isto fica evidente na penúltima frase 
do paciente. A resposta diz exatamente a 
mesma coisa que a pergunta. 
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Um dos recursos mais interessantes de um compu¬ 
tador é sua capacidade de manipulação de texto. Ou se¬ 
ja, juntar, separar, quebrar e classificar strings (cadeias). 
Isso permite usar o computador e sua impressora como 
uma máquina de escrever "inteligente”. 

Programas com esta finalidade, são chamados de "edi¬ 
tores" ou "processadores de texto" e atualmente, são 
bastante usados em jornais para facilitar os trabalhos de 
diagramação, revisão e redação de artigos. 

Em algumas revistas especializadas têm aparecido 
muitos programas que realizam uma ou outra função de 
manipulação de strings, principalmente para compu¬ 
tadores compatíveis com o TRS-80 e o Apple II. 

Se você tem um TK-82 e viu algum destes programas, 
deve ter pensado: "Interessante . . . mas como eu pode¬ 
rei fazer o mesmo no meu computador?" 


Um editor de cartas 


Mudando um pouco o enfoque dado em artigos ante¬ 
riores, mostraremos um programa destinado a outros 
computadores e depois de explicarmos detalhadamente 
seu funcionamento, descreveremos como você poderá 
implementar um programa semelhante em seu TK. 

Este programa (veja listagem) tem a finalidade de co¬ 
locar um texto de uma correspondência num formato 
de carta padrão. O texto deverá entrar linha por linha, 
poderá ser corrigido em qualquer momento de sua di¬ 
gitação — sendo impresso após a digitação da última 
linha, limpo e sem erros, já que eles foram eliminados no 
processo de escrita. Foi desenvolvido em BASIC padrão, 
podendo ser rodado na maioria dos computadores, me¬ 
diante adaptações à sua respectiva versão do BASIC (por 
exemplo, o Apple 11 e o TRS-80 e seus similares). 


10 ' EDITOR DE CARTAS 
20 CLEAR '20 d 0 
30 DIM AS(100) 

40 INPUT "QUAL O NUMERO MÁXIMO DE CARACTERES";N 
50 INPUT "NOME DO AUTOR DA CARTA";NS 
60 INPUT "DATA (POR EXTENSO) ";D$ 

70 INPUT "CIDADE DO AUTOR DA CARTA ";L$ 

80 INPUT "NOME DO DESTINATÁRIO ";Dl$ 

90 INPUT " ENDEREÇO (Rua e numero) DO DESTINATÁRIO ";E$ 

100 INPUT "CEP, O NOME DA CIDADE , 0 ESTADO DO DESTINATÁRIO (EM UMA UNI 
CA LINHA)";T1S 

110 INPUT "DIGITE 'Pcezado(a) Sc (a.) PRIMERO NOME DO DESTINATÁRIO*Al 

9 

120 PRINT CHR$(31) 

130 PRINT"INSTRUCOES" 

140 PRINT "INTRODUZA AS LINHAS UMA A UMA." 

150 PRINT "SE OCORRER UM ERRO EM UMA DELAS, ELA PODERÁ SER* 

160 PRINT "SER CORRIGIDA DIGITANDO-SE '#* E SEU RESPECTIVO NUMERO" 

170 PRINT"DIGITE 'FIM' PARA PARAR" 

180 FOR X-l TO 100 
190 Z-X 

200 PRINT "#";X 
210 INPUT AS(X) 

220 IF LEFTS(A$(X),1)*"#" THEN 450 

230 IF AS(X)»"FIM" THEN PRINT CHRS(31):GOTO 260 

240 IF LEN(AS(Z)) > N THEN PRINT "LINHA MUITO GRANDE*:Y»ZSX-X+1:C-1:M- 

0:GOTO 470 

250 NEXT X:X*X-1 

260 PRINT TAB(5);LS;",";DS 

270 PRINT:PRINT:PRINT:PRINT 

280 PRINT TAB(5);D1$ 

290 PRINT TAB(5);ES 
300 PRINT TAB(5);T1$ 

310 PRINT 

320 PRINT TAB(5);Al$J *:* 

330 PRINT 

340 FOR B-l TO X-l 
350 PRINT TAB(5);AS(B) 

360 NEXT B 
370 C-23+B 
380 PRINT 
390 PRINT 

400 PRINT TAB(55); "Atenciosamente" 

410 PRINT 
420 PRINT 

430 PRINT TAB(55);NS 

440 END 

450 * ROTINA DE CORRECAO 

460 Y-VAL(RIGKTS(AS(X),LEN(A$(X))-l)) 

470 INPUT "SELECAO; 1)INTRODUZIR NOVAMENTE A LINHA 2)CORRECAO";A 
480 IF A<1 OR A>2 THEN 470 
490 ON A GOTO 500,520 
500 AS(Y)-"":INPUT A$(Y) 

510 X-X-l:IF LEN(A$(Y))<*N OR AS(Y)-"" THEN GOTO 250 ELSE LET Z-Y:GOfO 
240 

520 T-LEN(AS(Y)) 

530 C-l 
540 LET M-0 
550 QS-INKEYS 

560 IF Q$«" " THEN IF OT THEN GOTO 550 ELSE LET H-M+l :C-OH í I$-MID$ ( 
AS (Y) ,M,1) -.PRINT IS; 

570 IF Q$«"D" AND C<-T THEN A$(Y)- LEFT$(AS(Y),C-1)♦ RIGHTS(AS(Y),LEN 
(AS(Y))-C) 

580 IF QS-"I" THEN INPUT JS:A$(Y)-LEFTS(AS(Y) ,C-l)♦JS+RIGHTS(AS(Y) 
EN(A$IY))-Ctl) 

590 IF Q$-"E" THEN IF LEN (AS(Y))<-N THEN PRINT :PRINT A$(Y)íA$(X)•* 
•:X-X-l:GOTO 250:ELSE LET X-X-l:C-1:M-0:Z-Y:PRINT:PRINT AS(Y):GOTO 240 
600 IF Q$-"L" THEN PRINT RIGHTS(A$ (Y),(LEN(AS(Y))-C*l))iC-1:M-0 
610 IF 0$-"B" THEN PRINT CHRS(18);:LET M-M-1:C-C-1 
620 GOTO 550 
















FUNCIONAMENTO 


0 programa editor de cartas está dividido em quatro 
partes: introdução dos dados do autor da carta e do des¬ 
tinatário, introdução do texto da carta, correção dos 
possíveis erros e impressão da carta. 

Na primeira parte, que compreende as linhas de 10 a 
120, reserva-se inicialmente um espaço na memória para 
o texto da carta, por meio das instruções CLEAR 2000 
e DIM ASO00). A instrução CLEAR 2000 reserva 2000 
bytes da memória para strings e a instrução DIM AS(100) 
dimensiona um vetor de 100 posições de memória, que 
conterá o texto da carta. Desta forma, poderemos escre¬ 
ver uma carta com no máximo 100 linhas ou 2000 letras 
(cerca de 200 a 300 palavras), o que é suficiente para 
um bom "bate-papo". 

A seguir, dimensiona-se o número máximo de caracte¬ 
res por linha. Isso será função do tamanho do papel dis¬ 
ponível e do tamanho da margem direita e esquerda. No 
programa, a margem esquerda foi fixada em 5 espaços, 
ficando a margem direita a critério do usuário. 

A seguir são pedidos os dados do autor da carta e do 
destinatário. Na linha 100 pede-se o CEP, a cidade e o 
Estado do Destinatário. Estes dados deverão ser digita¬ 
dos em uma única linha, separados por um espaço. 

Uma vez digitados todos os dados, a tela é limpa, por 
meio da instrução PRINT CHRS(31). Isso prepara a tela 
do computador para a introdução do texto da carta. 


A INTRODUÇÃO DO TEXTO 


No momento da introdução do texto, o programa 
mostra na tela uma série de instruções destinadas a ex¬ 
plicar como proceder. 

A seguir, o computador mostra o símbolo "#" segui¬ 
do pelo número 1. Isso indica que você deve digitar a 
primeira linha de seu texto. Quando terminar de digitá- 
la, pressione a tecla ENTER, NEW LINE ou equivalente. 
Se a linha for muito grande, o programa entra automati¬ 
camente no modo de correção, exibindo a mensagem: 

LINHA MUITO GRANDE 

Se, por outro lado, o número de caracteres digitados 
for menor que aquele estabelecido no início do progra¬ 
ma, o computador exibirá novamente o símbolo "#", 
seguido pelo número 2, indicando que devemos digi¬ 
tar a próxima linha, e assim sucessivamente, até que seja 
digitada a palavra FIM, com todos os caracteres em 
maiúsculas, ou quando o número de linhas exceder a 
100 — limite estabelecido pelo programa. 

Neste momento o programa passa para o modo "im¬ 
pressão", limpando a tela e imprimindo o texto no for¬ 
mulário, segundo a formatação pré-estabelecida pelo 
programa. 


O MODO DE CORREÇÃO 


Em qualquer momento da digitação, podemos entrar 


no modo de correção para corrigir um erro que porven¬ 
tura tenha sido cometido ou se simplesmente desejarmos 
ver uma linha qualquer, já digitada anteriormente. 

Para entrar no modo de correção, devemos pressionar 
a tecla ENTER na linha que estivermos digitando. Quan¬ 
do o computador mostrar o símbolo de "#" seguido pe¬ 
lo número da próxima linha, devemos digitar o símbolo 
"#" seguido pelo número da linha que desejarmos — que 
pode ser qualquer uma —, inclusive a última linha digi¬ 
tada. 

Uma vez feito isso, o computador nos apresenta duas 
possibilidades de escolha: digitar novamente a linha ou 
corrigí-la. 

Se escolhermos a primeira opção, basta, após indicar a 
escolha ao computador, digitar a linha novamente, lem- 
brando-se que existe um limite ao número máximo de 
caracteres. 

Na segunda opção teremos à nossa disposição, vários 
caracteres auxiliares com funções de correção: 

Espaço — a tecla de espaço permite, ao ser pressionada, 
mostrar a linha caractere por caractere. 

L — a letra L maiúscula permite visualizar-se a linha to¬ 
da na tela. 

B — tem a função de backspace, ou seja, retorna o cur¬ 
sor sem apagar o caractere mostrado no vídeo. 

D — apaga o caractere imediatamente à direita. 

I — permite a inclusão, em qualquer ponto da linha de 
vários caracteres. Uma vez digitado o caractere "I", os 
caracteres usados como comando, passarão a atuar como 
caracteres normais. 

E — volta ao modo de introdução de linhas, na mesma 
linha onde foi abandonado. 

Sempre que a linha estiver muito grande, o compu¬ 
tador avisará, exibindo uma mensagem e retornando ao 
modo de correção. 


POSSIBILIDADES DE 
MUDANÇAS 


Este programa poderá ser modificado de acordo com 
as suas necessidades e sua imaginação. Por exemplo, po¬ 
demos eliminar as linhas relativas à correspondência e 
torná-lo mais geral. Poderemos, ainda, tentar transfor¬ 
mar a rotina de verificação do tamanho da linha (linha 
240) em uma rotina que, além de verificar o tamanho da 
linha digitada, "quebra" o seu texto, transferindo os ca¬ 
racteres excedentes para a linha posterior. 

As modificações mais interessantes, no entanto, são as 
que tornam este programa compatível com o TK. Mos¬ 
traremos, na próxima parte, um conjunto de dicas para 
traduzirmos este programa para o seu computador. Estas 
dicas são interessantes mesmo para quem não vá fazer 
um programa de edição de cartas, pois elas valem para 
vários outros programas. 

Nota: A listagem que mostramos não imprime o texto, 
mas mostra-o na tela. Isso é conveniente na fase de 
debug, quando eliminamos os erros de lógica e de digita¬ 
ção, pois evita-se o gasto de papel desnecessário. Uma 
vez corrigido o texto, mude as instruções PRINT das 
linhas 260 à 430 para LPRINT. 

O 
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Autor: Prof. Wilson José Tucci - Coordenador de Projetos Especiais da Escola Experimental Pueri Domus. 


A AMPULHETA ELETRÔNICA 

Com este programa abrimos a seção RELOGIOS, on¬ 
de pretendemos apresentar alguns programas para mar¬ 
car o tempo no seu Apple; nada melhor do que começar 
com um relógio bem primitivo: a ampulheta (programas 
simulando relógios mais antigos, como o relógio de sol, 
serão bem aceitos pela nossa redação). Com a colabora¬ 
ção dos leitores iremos evoluindo até os modernos reló¬ 
gios digital-analógicos. 

Se você nunca viu uma ampulheta, nem mesmo na 
abertura do "Túnel do Tempo", eis como ela se parece: 


O tempo que a areia leva para passar da parte de cima 
para a parte de baixo, completa um ciclo. 

As primeiras ampulhetas, surgiram no século I depois 
de Cristo, contemporaneamente às clepsidras, ou reló¬ 
gios de água. Chegou-se a desenvolver ampulhetas bas¬ 
tante grandes, com ciclos de até uma hora. Nos séculos 
XVI e XVII eram comuns ampulhetas de 15 e 30 minu¬ 
tos nas igrejas, usadas para marcar o tempo dos sermões. 
Para melhor medir o tempo foram feitas ampulhetas 
com as metades superiores e inferior cilíndricas, de tal 
modo que a altura da areia fosse proporcional ao tempo 
passado, e portanto pudesse haver marcas de minuto em 
minuto, até um máximo de vinte minutos. Muitas am¬ 
pulhetas tinham um eixo no centro, para que ao fim de 
um ciclo, se pudesse rodá-las e começar de novo. 

O Programa 

Linhas 1180-1230 — Essa parte do programa POKEeia 
uma subrotina em linguagem de máquina, para simular 
o som da areia caindo. 

Linhas 250-270 — "Perguntam" quanto tempo o pro¬ 
grama deve cronometrar e o local de origem da areia. 
Perceba que para cada tipo de areia há um valor de D e 
X, que serão usados na rotina de som, para produzir 


sons diferentes para cada tipo de areia. Sinta-se à vonta¬ 
de para mudar os locais de origem das areias, mudand 
também, conforme necessário, as linhas 280-310. 

Linhas 330-980 — Formam o loop FOR-NEXT que| 
determina o tempo a ser cronometrado. 

Linhas 390-470 — Controem a ampulheta em si. 

Linhas 490-620 — Enchem a metade superior com 
areia de cor aleatória. 

Linhas 630-740 — Formam a rotina que tira um grão 
de areia da metade de cima e coloca na metade de baixo. 
Como? Simplesmente pintando o ponto da parte de ci¬ 
ma de preto e o ponto da parte de baixo da cor anterior. 
As posições dos pontos são lidas através das linhas 67(3 
e 710. 

Linhas 750-770 — Constituem um loop para passar o 
tempo, de tal forma que cada grão caia em intervalos de 
1 segundo. Para um ajuste fino do tempo, talvez seja 
preciso mudar o valor final deste loop (um valor maior 
tornará a execução mais lenta, enquanto um valor 
menor a tornará mais rápida). O valor 220 funciona bem 
no nosso computador. 

Linhas 780-880 — Dão a ilusão da areia caindo, 
PLOTando e apagando pontos consecutivos suficiente¬ 
mente rápido para que eles pareçam estar se movendo. 
Use esta técnica em seus programas. A linha 870 chama 
a subrotina em linguagem de máquina para fazer o som. 
Para cada tipo de areia há um som específico. Se você 
quiser, remova o REM dessa linha para que ela fique: 

870 POKE 768,F + NS: POKE 769,S: CALLj 
770:NS = NS + 1 

e então para cada grão que cair, haverá um novo som. 

Linhas 890-940 — Toca o sininho tantas vezes quanto jj 
os minutos que já passaram. 

Linhas 1000-1160 — Formam a areia, isto é, ascoor 
denadas dos pontos que devem ser apagados e pintadc 
pela rotina das linhas 630-740. 

TWO-LINERS 

Ainda estamos esperando suas colaborações para af 
ciação de nossa redação e posterior publicação. 

Portanto, mãos à obra e enviem seus programas | 

ra: MICROHOBBY 

Seção Por Dentro do Apple 
Caixa Postal 60081 









































































































0 REH ttt AMPULHETA Ut 

Í19B3 POR DENTRO DO APPLE 

100 TEXT : HOME : CLEAR 
240 GOSUB 1180 

250 INPUT 'QUANTOS N1NUTOS DEVO 
CRONOMETRAR ? ';HI 
260 HOME : VTAB 7 
270 PRINT “QUE TIPO DE AREIA DEV 
O USAR ?': PRINT : PRINT “DE 
SERTO DO (M)OHAVE': PRINT “D 
ESERTO DE (A)TACAHA*! PRINT 
“DESERTO DE (6)0BI“: PRINT “ 
DESERTO DO (S)AARA“: PRINT : 

PRINT “SUA ESCOLHA ? 6ET 
At: PRINT At 

280 IF At = “M“ THEN D = 25:7 = 

10 

290 IF At = “A“ THEN D = 50:7 = 

10 

300 IF At = “6“ THEN D = 50:7 = 

5 

310 IF At * “S“ THEN D = 100:7 = 

5 

320 HOME 

330 FOR TP = 1 TO MI 
340 6R 
350 R = 37 

360 Z = INT <14 t RND (D) + 1 
370 COLOR= 15 

390 REH CONSTRUIR AMPULHETA 
410 HLIN 13,27 AT 0: HL IN 13,27 AT 
39 

420 VLIN 1,7 AT 13: VLIN 32,39 AT 
13 

430 VLIN 1,7 AT 27: VLIN 32,39 AT 
27 

440 S = 14:J = 21 
450 FOR A = 1 TO 12 STEP 2: PLOT 
S,A + 7: PLOT S,A + 8: PLOT 
J,A + 19: PLOT J,A + 20:S = 

S + 1:J = J ♦ 1: NE7T A 
460 S = 14:J = 21 

470 FOR A = 12 TO 1 STEP - 2: PLOT 
S,A + 18: PLOT S,A + 19: PLOT 
J,A ♦ 6: PLOT J,A + 7:S = S + 
1:J = J ♦ 1: NE7T A 

480 REH 

490 REN ENCHER A METADE DE CIMA 

500 REM 

510 COLOR= Z 

520 A = 17:C = 19:B = 21 

530 FOR K = 1 TO 2 

540 FOR J = C TO B 

550 PLOT J,A 

560 NE7T J 

570 A = A - 1 

580 NE7T K 


590 C = C - 1:B = B + 1 
600 IF A < 6 THEN 620 
610 60T0 530 
620 HLIN 14,26 AT 38 
630 REM 

640 REH COHECA A MARCAR O TEMPO 

650 REM 

660 COLOR 1 0 

670 READ 7,Y 

680 IF 7 = 0 THEN 900 

690 PLOT 7,Y 

700 COLOR= Z 

710 READ 7,Y 

720 PLOT 7,Y 

730 IF 7 = 20 THEN R = R - 1 
740 REM 

750 REM AJUSTA O RELOBIO 
760 REM 

770 FOR K = 1 TO 220: NE7T K 
780 REM 

790 REH CAIR DA AREIA 
800 REM 

810 FOR F = 19 TO R 
820 CQLOR= Z 
830 PLOT 20,F 
840 COLOR= 0 
850 PLOT 20,F - 1 
860 NE7T F 

870 POKE 768,D + NS: POKE 769,7: 
CALL 770: REM OPCAO...NS=NS 
+1 

880 GOTO 660 
890 REH 

900 REH TEMPO QUE JA PASSOU 
910 REM 

920 FOR S = 1 TO TP 
930 PRINT CHRt (7) 

940 NE7T S 

950 IF S = 2 THEN HOME : HTAB 1 
8: PRINT “1 MINUTO': 60T0 97 
0 

960 HOME : HTAB 17: PRINT TP' MI 
NUTOS' 

970 RESTORE :NS = 0 
980 NE7T TP 
990 END 
1000 REM 

1010 REH DADOS DA AREIA 
1020 REH 

1030 DATA 20,6,20,37,19,6,19,37 
,21,6,21,37,20,7,20,36,19,7, 

19.36.21.7.21.36 

1040 DATA 20,8,20,35,18,6,18,37, 

22,6,22,37,20,9,20,34,19,8,1 

9.35.21.8.21.35.21.9.22.36 
1050 DATA 22,7,22,35,22,8,23,37, 

23,6,21,34,21,10,20,33,20,10 

,19,34,19,9,18,36,22,9,18,35 


1060 DATA 20,11,17,37,18,7,17,3 

6.17.6.16.37.23.7.20.32.21.1 

1.21.33.22.10.23.36.16.6.24, 

37 

1070 DATA 16,6,18,34,20,12,17,35 
,18,8,17,34,17,7,19,33,17,8, 

18.33.24.6.15.37.19.10.16.36 

1080 DATA 16,7,23,35,18,9,19,32, 

23.8.16.35.24.7.24.36.25.6.2 
2,34,21,12,25,37,23,9,22,33 

1090 DATA 19,11,20,31,23,10,23,3 

4.24, B,26,37,22,11,26,36,18, 

10.21.32.22.12.25.36 

1100 DATA 20,13,24,35,21,13,16,3 
4,15,7,15,36,15,6,18,32,15,8 
,15,35,14,6,14,37,24,10,17,3 
3 

1110 DATA 14,7,25,35,16,8,24,34 
,17,9,18,31,24,9,19,31,19,12 
,20,30,20,14,26,35,25,7,22,3 
2 

1120 DATA 25,8,14,36,26,6,21,31, 
26,7,25,34,19,13,19,30,20,15 
,17,32,21,14,21,30,18,11,23, 

33 

1130 DATA 17,10,16,33,16,9,15,34 
,25,9,14,35,15,9,24,33,22,13 
,22,31,16,10,20,29,17,11,23, 

32 

1140 DATA 18,12,26,34,23,11,17,3 
1,24,11,16,32,21,15,21,29,19 
,14,14,34,23,12,20,28 
1150 DATA 23,13,15,33,16,11,23, 

31.22.14.18.30.18.13.25.33.1 
7,13,22,30,22,15,24,32,17,12 
,19,29 

1160 DATA 18,14,18,29,20,16,21,2 
8,19,15,19,28,21,16,22,29,18 
,15,17,30,20,17,24,31,19,16, 

16.31.21.17.23.30.19.17.20.2 
7,0,0 

1180 REM SOM DA AREIA 
1200 POKE 770,173: POKE 771,48: POKE 
772,192: POKE 773,136: POKE 
774,208: POKE 775,5: POKE 77 
6,206: POKE 777,1 

1210 POKE 778,3: POKE 779,240: POKE 
780,9: POKE 781,202: POKE 78 
2,208: POKE 783,245: POKE 78 
4,174: POKE 785,0: POKE 786, 

3 

1220 POKE 787,76: POKE 788,2: POKE 
789,3: POKE 790,96 
1230 RETURN 

O 

Daniel R. Falconer e José Eduardo Moreira 
Professores assistentes do 
Departamento de Computação 
da Escola Pueri Domus. 
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Edição n?2 


A GRAVAÇÃO 


DOS 

PROGRAMAS 



Após muitos anos criticando os aparelhos de alta- 
fidelidade em algumas revistas brasileiras e enfrentando 
preconceitos, "rumores” e lendas fantásticas sobre Som 
e o "software" que o acompanha, chego a este novo 
campo dos computadores pessoais. 

Leigo na matéria, alfabetizando-me em Basic, levando 
"surras" homéricas do meu TK, também começo a en¬ 
contrar pessoas interessadíssimas; atendimento cuidado¬ 
so e gentil por parte de vendedores de lojas, represen¬ 
tantes da Microdigital; de firmas particulares que comer¬ 
ciam micros ou programas, etc, a ponto de me per¬ 
guntar: 

— Ué?! O que está acontecendo? 

De outro lado, também nesta área começo a encon¬ 
trar os rumores e lendas fantásticas; exemplo . . . "Um 
gravador cassete, quanto mais barato melhor para gra¬ 
var seu programa". 

Daí a me atrever — eu, novato em micro — a trazer 
alguns princípios básicos aprendidos durante os anos em 
eletrônica de Som, para esta área. 

O gravador 

Não é verdade que o gravador "mais barato" seja o 
melhor. E nem poderia ser. 0 "guincho" gravado no cas¬ 
sete — as informações do micro — é rico em sons mé¬ 
dio-agudos. Os próprios fabricantes insistem que, em 
tendo o aparelho um controle de tonalidade, seja colo¬ 
cado na posição de mais agudo. E é aqui que os micros 
saem-se mal: gravadores de baixa qualidade têm sua res¬ 
posta de agudos muito pobres. 0 mesmo se dá com bons 
gravadores, usados (geralmente monoaurais) há longo 
tempo, que o usuário consegue comprar por bom preço. 
Estes gravadores já terão rodado muitos quilômetros de 
fita, desgastando os cabeçotes de gravação/reprodução, 
o que influencia precisamente mais na gama dos médio- 
agudos. 

Por outro lado, gravadores "mais baratos" possuem 


limitações mecânicas que logo conduzem à lata de lixo. 
Se as flutuações desses sistemas mais pobres tornam tais 
gravadores imprestáveis para a reprodução de música, o 
mesmo não é tão grave quanto aos sinais digitais. Uma : 
certa flutuação (wow eflutter) ainda é suportada galhar-? 
damente nos momentos de LOAD e SAVE. Porém as 
funções de rebobinamento rápido (para a esquerda ou 
direita), além da possível interrupção do movimento daI 
fita com cassetes semi-defeituosas, tornam o aparelho de 
baixa confiabilidade, isto é, dor de cabeça para seu 
usuário. 

Ainda mais, os aparelhos de baixo preço no geral pos¬ 
suem marcas estranhíssimas, como "Claudicorder", 
"Somissuko" ou "Mankassom", fabricados na Konxin- 
china, Taboão da Serra ou Trás-dos-Montes. Quando 
chega o momento de consertá-lo e substituir um compo¬ 
nente defeituoso, o técnico será obrigado a "improvi¬ 
sar". Resumo: mais dinheiro jogado fora. 

Por fim, aparelhos baratos não possuem contador nu¬ 
mérico do andamento da fita. Para quem não sabe, tais 
contadores são de baixa precisão e, geralmente, contam; 
as voltas da bobina, dentro do cassete. Por isso raras ve¬ 
zes a leitura é válida entre aparelhos diferentes. De qual¬ 
quer forma, quando gravamos diversos programas em 
uma mesma fita cassete, torna-se quase impossível loca¬ 
lizar o programa específico sem o auxílio dos numero- 
zinhos. 


Sugestões: 

1) Compre um gravador de marca conhecida e respeita¬ 
da, ainda que não esteja em condições 100%. Uma vez 
que o aparelho tenha representante no país — qu seja 
aqui fabricado por indústria de respeito, que mantenhc 
eficiente serviço de manutenção — tudo bem. 

2) Mande examiná-lo antes de começar a empregá-lo. 
O mínimo que se pede é uma boa limpeza e lubrifica¬ 
ção, com desmagnetização dos cabeçotes e guias me¬ 
tálicas, assim como substituição dos potenciômetros 
(controles de volumes, de tom) defeituosos ou ruido¬ 
sos. Aliás, manda o mínimo de cuidado que ao menos 
uma vez por mês os cabeçotes sejam limpos com álcoo 
metílico- e desmagnetizados. Se os cabeçotes apresen¬ 
tarem desgastes, mande substituí-los. Não custam assim 
tão caros e prestarão serviço por longo tempo, se bem 
cuidados. Lembre-se: cabeçotes desgastados gravam e 
reproduzem muito mal os sons agudos. 

3) Prefira uma boa fonte de alimentação (ou conversor 
AC/DC, ou Adaptador); o preço das baterias não anda 
brincadeira e, a menos que você empregue baterias al¬ 
calinas ou de mercúrio, verá o gravador "arrastando 
a fita com a língua de fora", após pouco tempo de uso. 









A GRAVAÇÃO DOS 
PROGRAMAS 

Continuação... 


A fita cassete 

Não vamos citar nomes para evitar polêmicas desne¬ 
cessárias. Porém algumas fitas nacionais — mesmo de 
certo renome e preço — desprendem o material magne- 
tizável que passa a sujar os cabeçotes. A reprodução que 
mais sofre são os médio-agudos, com frequência insu¬ 
portável. Cabe aqui a consideração feita em reprodução 
de alta-fidelidade: "Se vale a pena ser gravado, vale a 
pena ser BEM gravado". 

Empregue fitas de renome, de baixa duração (nunca 
as de 90 ou 120 minutos) e preserve-as com carinho. Na¬ 
da de proximidades de fontes magnetizadoras (transfor¬ 
madores, cinescópio de TV, etc); no mínimo a 30 cm de 
distância, o que assegurará que os sinais gravados não se 
alterarão. O calor, a umidade e a poeira (porta-luvas de 
carro, por exemplo) são os próximos inimigos a serem 
evitados. Não se esqueça de que o próprio micro costu¬ 
ma aquecer; nada de espantar, é claro, porém não co¬ 
mece a testar o ponto de fusão do plástico empregado 
na cassete! Da mesma maneira, não toque com os de¬ 
dos na fita; você não sabe como nossa pele é gordurosa! 
Se houver algum acidente que o obrigue a desmontar o 
cassete, ou emendar a fita, manuseie-a com luvas de al¬ 
godão. A fita e os cabeçotes agradecerão o cuidado. 

N ível de gravação 

Os indicadores de nível de gravação — ou VU-meter — 
são um auxiliar precário no julgamento do nível de gra¬ 
vação. A última palavra será dada pelo seu micro e a 
imagem reproduzida no monitor ou TV falarão mais 
"alto". . . A limitação dos VU-meter explica-se facil¬ 
mente: são um tanto "totalizadores", ignorando se o 
sinal mais intenso está na gama dos médios, agudos ou 
graves. Isto é. . . isso na melhor das hipóteses, quando 
foram calibrados na fábrica. Comparando equipamento 
similar, e, por vezes, até modelos idênticos, nacionais ou 
importados, já se pode perceber uma total discrepância 
na indicação dos diferentes VU-meters. E claro que não 
deveria acontecer, mas acontece . . . 

Pelo mesmo motivo, as gravações em "Automático" 
nem sempre funcionam. Dependendo do circuito ele¬ 
trônico empregado num específico gravador, da fita em¬ 
pregada, e finalmente das neuroses do seu micro, o 
LOAD poderá parecer a contento numa situação e inú¬ 
til em outra. O mais prático é digitar programas curtos 
e testar os melhores níveis de gravação (SAVE) e repro¬ 
dução (LOAD). 

Conectores 

Já presenciamos um profissional rosnar contra o cabo 
conector entre o computador e o gravador cassete: 

— Está com mau contato! 


Se há tal desconfiança, leve o cabo a qualquer técnico 
de eletrônica para ser consertado; não deixe as coisas 
assim! Ou compre um par de cabos extras, para não ficar 
parado à espera do conserto. De todos os soft, os cabos 
são de longe os mais baratos. 

Em alta-fidelidade, em situações quando trabalhamos 
com sinais minúsculos, empregamos até contatos banha¬ 
dos a ouro para os conectores. Isto não se aplica aos mi¬ 
cros. No entanto a boa qualidade dos contatos é impres¬ 
cindível para se evitar oxidação, principalmente para 
aqueles que vivem à beira-mar ou em locais de alta umi¬ 
dade relativa. Gaste um pouco mais num bom cabo com 
conectores bem acabados e evitará as incertezas de um 
mau contato intermitente. 

TV à Cores 

"O micro estraga o TV à cores" — é outra falácia que 
já ouvi algumas vezes, em locais diferentes. 

O sintonizador de seu TV não tem a menor idéia se 
está recebendo um sinal direto do transmissor de TV do 
canal 2, ou do gerador de seu vídeo-cassete, ou de seu 
micro (supondo que essas fontes estejam funcionando 
corretamente, é claro). O que salta aos olhos — ou aos 
bolsos, melhor dito — é que, por menos tempo que você 
empregue o computador, estará desgastando o tubo de 
imagem do televisor. Ora, o componente mais caro é 
precisamente o tubo de imagens. Em se tratando de um 
modelo à cores, custará de três a quatro vezes o preço 
de um tubo branco e preto de tamanho similar. A mão- 
de-obra para a troca é proporcionalmente mais cara tam¬ 
bém. Além disso, imagine se, por azar, coincide de o 
aparelho mostrar defeito na bora da telenovela precisa¬ 
mente logo depois que você acabou de empregá-lo com 
o micro? 

— E as Crianças? 

— Quais crianças? — perguntará o leitor, já alarmado. 

Pois é. . . as crianças da casa — filhos, irmãos menores, 
priminhos de fins de semana — simplesmente se encan¬ 
tam com o micro. E a ordem: "Não ponha a mão aí!" 

. . . além de antipática, seria ineficiente. Aliás, mais do 
que antipática, estaríamos sendo anti-pedagógicos. De¬ 
pendendo da idade da criança, podemos ensinar desde o 
manuseio de simples jogos até princípios de manipula¬ 
ção do teclado. E simplesmente inacreditável a veloci¬ 
dade de aprendizado de crianças de seis, sete ou oito 
anos. Também é imperioso que nos convençamos de que 
o micro veio para ficar também na vida das crianças. Se 
gastarmos duas horas em cima de um programa dedicado 
a nossos filhos ou irmãos menores, propondo-lhes 
problemas de aritmética, história ou conhecimentos ge¬ 
rais, poderemos estar empregando as melhores duas ho¬ 
ras de nossa vida. 

Mas isso já é outra conversa que pouco tem a ver com 
o Som para os Micros. Ficam aí as sugestões que, espero, 
sejam de utilidades para você. 








Socorro! Socorro! — grita a moci¬ 
nha, do alto da plataforma. 

O gorila, mais conhecido como 
Kong, está furioso e impedirá a qual¬ 
quer custo que você (o mocinho da 
história) a salve. 

Para impedí-lo, o horrível Kong 
lançará barris por toda a plataforma e 
você terá que saltá-los um a um e subir 
os degraus da escada, para alcançar 
o topo da plataforma, onde está a 
desprotegida mocinha, gritando deses¬ 
peradamente por você. 


Para salvá-la, você disporá de três 
vidas e os pontos serão concedidos 
de acordo com o tempo gasto na che¬ 
gada ao topo. Quanto menor for o 
tempo gasto por você para chegar até 
a mocinha, mais pontos você ganhará. 

Chegando ao topo da plataforma, 
você terá salvo a mocinha e, como 
não podia deixar de ser, tudo termina¬ 
rá num emocionante final. 

Você sairá de cima da plataforma, 
no interior de um biplano e sobrevoará 
o Kong, metralhando-o logo em se¬ 
guida. 


Os tiros atingirão as ligas de ferro 
da plataforma e esta rachará ao meio, 
provocando uma inevitável queda do 
Kong plataforma abaixo, até que este 
acabe se espatifando no solo. 

Termina assim, com um maravi¬ 
lhoso beijo, a trágica e emocionante 
história de amor! 

Quando digitar o programa, tome 
muito cuidado para reproduzir fielmen¬ 
te todos os gráficos impressos na lis¬ 
tagem. 
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KONG 


3 

SLOU 


4 

CLS 


5 

POKE 16418, 

0 

S 

LET U=3 


7 

PRINT RT 1, 

as; 

3 

LET X$=” L 

nmm ) 


***** 

9 

LET S=0 


10 

LET 6=500 


20 

LET C=1 


30 

LET D =21 


40 

LET F = — 1 


50 

LET E = 1 


50 

LET R =22 


70 

LET 6=3 

. 0 :"HS3 E 

200 

PR TNT PT 7 




201 PRINT RT 0,25; ••BTWJTgg- 






210 PRINT RT ll.O; _ 

ÍS^iia B □ ES3 E£33 h" 

220 PRI NT RT 15.0; "Kg£8 re*g&TVI BgS 

ESSS3 B E^2£S2£±SS33” 

230 PRINT RT 19.0; - gsrea g5L^:»tw{taa 

D g^ajdr.-ü^ ^^ :rs e2£3h- •* 

24-0 PRINT PT 23,0; "i 

250 FOR N = 1 TO 4- 
260 PRINT RT 7 +N ,0; "H" ; RT 11+N, 
30;”H“;PT 15+N,0; ’*H”; RT 19+N,3©; 

270 NEXT N 

^280 PRINT RT 6,5;"H H » 

' 290 PRINT RT 5,5;“H H Jl 

^300 PRINT RT 4,5;“H 

310 PRINT RT 3,7;" 

320 PRINT RT 2,6;" 




Q'* 

;rt 1,7; 


;RT 3l,o; 

» • C • M •• 

/ ^ I 

’; R 


330 PRINT RT 20,0;“, 

"B2’*;RT 22,0; "133" 

340 PRINT RT 0,0;“PTOS: 

;“BÔNUS: ";G 

350 PRINT RT 10,C;" O O O 
T 14,0; " O O O "; RT 1S,C; " O 
O O “;RT 22,0;" O O O " 

351 PRINT RT R,B; 

352 LET fl $=CHR$ PEEK (PEEK 1639 

8+256+PEEK 16399) 

353 PRINT RT R,6;”i" 

354 IF R$="0" THEN GOTO 9000 

360 LET C=C+E { 

370 LET D=D+F 

375 PRINT RT 6,16;"» *";RT 4,16 
Í"^S";RT 1,11;"HELP" 

376 PRINT RT R+1,B; 

377 LET B*=CHRS PEEK (PEEK 1,639 
8+256 iPEEK 16399) 

378 IF B $ =" " THEN GOTO 600 

380 IF C =21 THEN LET E = -l 
390 IF C =2 THEN LET E = 1 
400 IF D =2 THEN LET F = 1 
41© IF 0=21 THEN LET F=-l 

411 LET G =G — 1 

412 IF G<0 THEN PRINT RT 14,5;" 
SEU TEMPO ESGOTOU " 

413 IF G<0 THEN LET U=0 

414 IF G<0 THEN GOTO 9000 

415 IF R =6 RND B=5 THEN GOTO 91 

0O 

460 PRINT RT R,8;R$ 

470 IF INKEY*="7" RND R*="H" TH 
EN GOSUB 6000 

480 LET B=B+(INKEV$="8" RND B<3 
0) -CINKEY$="5" RND B>0) 

490 IF INKEY*="I~ THEN GOSUB 78 

00 

500 IF INKEV$="T" THEN GOSUB 80 

00 

5 05 PRINT RT 6,16;"*» S" ; RT 4,16 

;"PS%";RT 1,11;" " 

510 GOTO 340 

^600 PRINT RT fi,B;" ";RT R+1,B;" 

610 PRINT RT R+2,B; 

620 LET G$=CHR$ PEEK (PEEK 1639 
8+2SO+PEEK 16399) 

630 IF G$<>" " THEN LET R=R+1 

631 IF G$r<>" " THEN GOTO 9000 

632 LET RssR + 1 
650J3GOTO 600 


6000 FOR N=R TO R-3 STEP -1 

6001 PRINT RT N,B;"I" 

6082 FOR U=1 TO 3 

6003 NEXT J 

6004 PRINT RT N,B;"H” 

6005 NEXT N 

6006 PRINT RT N,B;"f",RT N,B;“ " 

8007 LET R=R-4 

6009 RETURN 

7000 PRINT RT R , B; " "; RT R-1,8;” 

^••;rt r-i,b;" ”;RT R-2,B;"1";RT 
r-2,b;" "; RT R-2,B + i; *' i“; RT R-2, 

B + l;” ";rt r-2,b+ 2;"S‘;RT R-2,B+ 
2; " B"; RT R —2, B +2; ” **; RT R-l,B+2; 

•*S";RT R-l,B+2;" " 

7001 PRINT RT R,B+2; 

7002 LET U$=CHR* PEEK (PEEK 1639 

8+256+PEEK 16399) 

7003 IF U$="Q” THEN GOTO 9000 

7004 PRINT RT R,B+2;”I";RT R,B+2 
• •• •• 

7010 LET B=B+2 
7020 RETURN 

8000 PRINT RT R, B,' " ", RT R-1,B;" 

%"; RT R -1, B; ” "; RT R-2,6;”|";RT 

R-2,B;" **; RT R-2,B-l; •• J";rt r-2, 

B-l; ” "; RT R-2,B-2;"V;RT R-2,8- 

2; “ ";rt r-i,b-2; ” I"; rt r-i,b-2; 


•• •• 


8001 PRINT RT R,B-2; 

6002 LET U$=CHR* PEEK (PEEK 1639 
8+P56+PEEK 16399) 

6003 IF U$="0" THEN GOTO 9000 
8004 PRINT RT fl,B-2;"I";RT R,B-2 


8010 LET B=B-2 

8020 RETURN 

9000 FOR N=1 TO 20 

9010 PRINT RT R,B;“I”;RT R^;"* -1 ” 
RT R,B; " I"; RT fl,B; "■*" 

9020 NEXT N 

9021 IF U=© THEN PRINT RT 10,10; 
" GRME OUER " 

9022 IF U=0 THEN PRINT RT 18,1;” 

OUER JOGRR DE NOUO 7 (S/N) " 

9023 IF U=0 RND INKEY*=”S" THEN 
RUN 

9024 IF U=0 RND INKEY$=”N" THEN 
STOP 

9025 IF U=0 THEN GOTO 9023 

9026 CLS 

9027 IF U=3 THEN PRINT RT 1,25;” 

ES3" 

9030 IF U=2 THEN PRINT RT 1,25;” 

9035 IF U=1 THEN PRINT RT 1,25;" 

9040 LET U=U-1 
9070 GOTO 10 
9100 LET S=S+G 

9103 PRINT RT 0,0; "PTOS: *•; S; ” ” 

;”BONUS: ";G 

9104 FOR 0=1 TO 3 

9105 PRINT RT 3,19;” 

>”; " *■”; " 

9110 FOR F =24 TO 19 STEP -1 
9120 PRINT RT 3,F; ” ” 

9130 NEXT F 
9135 NEXT O 
9150 PRINT RT 1,5;X* 

9160 FOR F=5 TO 11 
9165 PRINT RT 1,F;X* 

9170 NEXT F 
9180 FOR F=S TO 8 

9190 PRINT RT F-1,F+11;".";RT F- 
l.F+11;"” 

9195 NEXT F 

9200 PRINT RT 7,1S;"E| "; RT 8,1 

5; " Q ”;RT 9,15;" §3" 

9205 FOR F =3 TO 19 

9210 PR INT RT F,16;" H ";RT F+l, 
16;"Pjj^";RT F+2, 16; " "; RT F + 3, 

16; ,,Cs ; RT F-1,1?; ; 

9215 NEXT F 

9217 PRINT RT 19,17," ” 

9218 PRINT RT 20,15;" 

9219 PRINT RT 21,15;“ 

9220 PRINT RT 22,15; " H~ 

9225 FOR F=1 TO 60 

9226 NEXT F 

9227 LET G=500 
9230 CLS 

9270 GOTO 20 

9275 STOP 

9260 SRUE "KONS” 

9290 RUN o 
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Neste mês, apresentamos um pro¬ 
grama muito especial para você que 
gosta de romances e que é um eterno 
sonhador: Romeu e Julieta, a famosa 
peça de teatro de Shakespeare. 

"Romeu e Julieta" são dois jovens 
apaixonados, cujas famílias são inimi¬ 
gas e não permitem, de maneira algu¬ 
ma, o romance entre os dois. Mas eles 
se amam e não se intimidam pelas 
ameaças de seus pais. 

Julieta pensa numa solução para 
libertar-se de vez das amarras pater¬ 
nas: fugir com Romeu. Para isto, ela 
procura o sempre bom amigo padre da 
família para auxiliá-la e este lhe entre¬ 
ga um frasco com uma poção que, ao 
tomá-la, Julieta ficará adormecida e to¬ 
dos pensarão que ela esta morta. Ju¬ 
lieta será colocada no mausoléu da fa¬ 
mília e Romeu irá buscá-la. 

Porém, nada dá certo no plano da 
bela Julieta! Não avisam Romeu a tem¬ 
po e o jovem, desesperado, corre ao 
mausoléu e encontra sua amada apa¬ 
rentemente morta! 

O apaixonado Romeu desespera- 
se e se mata com sua espada. Nisso, 
Julieta renasce de seu sonho e vê seu 
amado morto ao seu lado. A bela jo¬ 
vem percebe neste momento, que o 
único caminho para ficarem juntos, é a 
morte. . . 

Assim termina o trágico romance 
de Romeu e Julieta! . . . e inicia-se o 
nosso jogo-aventura . . . 

Romeu e Julieta é um programa 
para ser usado no seu TK, com expan¬ 
são de 16k ou mais de memória. Um 
típico jogo-aventura que funciona basi¬ 
camente como um programa educati¬ 
vo, ou seja, um programa cuja finali¬ 
dade é desenvolver o aprendizado de 
jovens na faixa infanto-juvenil (figu¬ 
ra 1). 


Figura 1 

P PM FU <U LT F T H 

ESTE UM MflTEMflTÍCO 

«JOGO -flUENTURR . 


SERRO GERADOS UM CEIRTO NUMERO DE 
PERGUNT RS DURRNTE RS SUAIS 
NOTRR-SE-O» O DESENROLAR DO 
FRHOSO ROMRNCE SHRKESPERIflNO. 


Durante o jogo, são gerados inú¬ 
meros testes e, como gratificação a 
cada resposta certa, o computador se 
encarrega de produzir uma cena com 
efeitos de animação: uma cena da his¬ 
tória é simulada na tela e sua seqüên- 
cia é conseguida através das respostas 
certas inseridas no computador. 

Quando o programa é posto para 
rodar, após uma rápida explicação do 
funcionamento do jogo, surge, no can¬ 
to inferior da tela, o cursor L, indican¬ 


Figura 2 


TECLE O 
(1 RTE* 

NXVEL DE DIFICULDftDE 
1.00) 



0 





do que o computador está pedindo 
dados. 

Estes dados referem-se ao nível de 
dificuldade do jogo que pode variar de 
1 até 100 (figura 2). Em qualquer um 
destes níveis, são geradas questões 
envolvendo as quatro operações arit¬ 
méticas: soma, subtração, divisão e 
multiplicação. 

No nível 1, são propostas opera¬ 
ções com um ou dois dígitos (figura 
3). No nível 100, ou seja, no nível de 
dificuldade mais elevado, são geradas 
operações com três dígitos (figura 4). 



São geradas um total de 40 ques¬ 
tões, no máximo. 


À cada questão correta, notar-se- 
á mudanças no cenário apresentado na 
tela. 

A seguir, citaremos algumas das 
cenas desenvolvidas na tela: 

— A jovem Julieta move-se em di¬ 
reção à da torre. Romeu, movimenta- 
se em direção ao castelo e, no meio de 
seu percurso, dois fatos ocorrem: Ju¬ 
lieta, avistando seu amado, joga uma 
flor em sua direção, como prova de seu 
amor. Uma coruja, que estava no topo 
da torre, percorre o céu de um canto 
ao outro da tela e pousa numa árvore 
em frente ao castelo. 

— Romeu, ao chegar ao pé da tor¬ 
re, inicia uma difícil mas compensa¬ 
dora escala até a sacada da torre. 

Por fim, Romeu abraça Julieta, 
despedindo-se logo em seguida. 

Julieta recolhe-se aos seus apo¬ 
sentos e Romeu inicia uma caminhada 
de volta ao ponto de origem. 

Basicamente, são essas as cenas 
demonstradas na tela, no decorrer do 
jogo. 

Por fim, caso o jogo for bem suce¬ 
dido, o computador apresenta no ví¬ 
deo a seguinte mensagem: 

"Romance concluído, tecle Z para 
recomeçar". Caso contrário, Romeu 
morrerá e surgirá na tela a mensagem: 

"Que azar, hein? Tecle Z para re¬ 
começar". 


Programa adaptado e reestruturado da re¬ 
vista Popular Camputing Weekly — Março/83. 
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idicão n?9 



ROMEU E JULIETA 


5 REM ROMEU E JULIETA 
10 PRINT AT 4,7; " ROMEU E JULIE 
TR”; AT 5,7; mmm 

20 PRINT AT 10,0;"ESTE E* UM M 
RTEMRTICO JOGO-flVENTUR 

A.";AT 15,0;"5ERRO GERADOS UM CE 
RTO NUMERO DEPERGUNTAS DURANTE A 
5 OUAIS NOTAR-SE-A* O DE5EN 

ROLAR DA FAMOSA TRAGÉDIA 5HR 

KESPERIANfl. *' 

30 FOR F = 1 TO 4-00 

31 NEXT F 
4-0 CLS 

50 PRINT AT 10,0;"TECLE O NIUE 
L DE DIFICULDADE <1 ATE* 100 

60 INPUT P 

70 IF P<1 OR P>100 THEN GOTO 4 
Q 

30 CLS 

130 LET C* = 

14-0 LET D$ = 

150 LET E$= 

160 LET F4= 

170 LET ”G $ = ’ 1 

180 FOR E=0 TO 18 
190 PRINT AT E,0;fi* 

200 NEXT E _ 

210 PRINT AT a,&; "MHHBKsn 

3,0; E $ ; AT 4,©,E$,AT 10,0;Eí 

220 FOR E=5 TO 9 
230 PRINT AT E,0;D$ 

24-0 NEXT E 

£50 FOR E = 11 TO 17 STEP 2 

260 PRINT AT E,0,C$,AT E + 1,0.;B5 

270 NEXT E 

280 PRINT AT 19 ■0; F$ 

310 PRINT AT 6,30; "FÊT" > AT 7,29 > 

iV *)> ST - 9 '- §; *' a7i "**• 



; AT IO ,27; 


INT AT 11,23, 
” AT 13,27;* 


AT 
"; AT 


12 

lo- 


15,1; "C" ,TAB 5;"T‘ 


K,U;"O”;AT K+l,d; 


"■T" 


;AT 5+l,R; 
AT 1,27 


, AT 0,3; “X " 


320 PP 

,29; ’ “ ‘ 

, 28 ; __ 

330 FOR E = 15 TO 18 
34-0 PRINT AT E,31; *■ 

35© NEXT E 
360 PRINT AT 
410 LET K=7 
42© LET J=i 
430 LET 5=16 
440 LET R=29 
450 PRINT AT 
< '• ; AT K+2..J;" 

460 PRINT AT S.R; 1 
b •*; AT 5+2, R : " a " 

470 PRINT AT 0,27;' 

I " , RT 2,27; "*Jr 
480 PRINT AT 9,8, B ’ 

1 RT 1,3; "i"; AT 2,3; "I* 

9©0 LET N=0 
91© LET TOT =0 
1010 LET A=INT 
1020 LET B = INT 
1030 LET C = INT 
1040 LET F = INT 
1050 LET G=INT 
1060 LET H=A+B 
1070 LET I=C-r 
1080 LET M=B*F 
1090 LET G=A*G 

1100 PRINT AT 20,0;G*,AT 21,0;GS 
1110 PRINT AT 20,0; "QUANTO E* " ; 

A;" + ";B;" 7" 

1120 INPUT X 

1 130 IF X < >H THEN PRINT AT 21,0, 
•fflSB A RESPOSTA E* "; H 
114 0 IF X=H THEN PRINT AT 21,0," 
«BI A RESPOSTA E* ";H 
1150 IF X=H THEN GOSUB 4000 
1160 GOSUB 4500 

1200 PRINT AT 20,0;G*, AT 21,0, G5 
1210 PRINT AT 20,0; "QUANTO E* "; 

C; *• - **; F; " ?" 

1220BINPUT X 

1230 IF X < >I THEN PRINT AT 21,0, 


ÍRND*10*P) 
(RND*5*P) 
IRND*10*P> 
(RND*5*P)+1 
<RND*2*P) 


__ ft RESPOSTA E* I 

1240 IF X=I THEN PRINT AT 21,0;" 

A RESPOSTA E* "; I 
1250 IF X=I THEN GOSUB 4000 
1260 GOSUB 450© 

1300 PRINT AT 20,0; G*; AT 21,0; G$ 
1310 PRINT AT 20,0;"QUANTO E* ; 

1 330 IF^xt>B THEN PRINT AT 21,0, 
"(BEBI A RESPOSTA E* " ; B 
1340 IF X=B THEN PRINT AT 21,0;“ 
A RESPOSTA E* **; B 
1350 IF X=B THEN GOSUB 4000 
1360 GOSUB 4500 

1400 PRINT AT 20,0; G*; AT 21,0; G* 
1410 PRINT AT 20,0;"OUANTO E* "; 

A; " X G; " 7" 

1420 INPUT X _ _ _ _ 

1430 IF XoO THEN PRINT AT 21,0; 
•SBSB A RESPOSTA E* ";Q 
144 0 IF X=0 THEN PRINT AT 21,0;“ 
3RB A RESPOSTA E* ", O 
1450 IF X=G THEN GOSUB 4000 
1460 GOSUB 4500 
1500 GOTO 1000 

4 010 IF N< =5 THEN GOSUB 5000 
4020 IF N =6 THEN GOSUB 5500 
4030 IF N>6 AND N<11 THEN GOSUB 
6000 

4040 IF N=I1 THEN GOSUB 6500 
4050 IF N >11 AND N<29 THEN GOSUE 
6000 

4060 IF N =20 THEN GOSUB 7000 
4070 IF N >=29 AND N<34 THEN G05U 
£3 7500 

4080 IF N =34 THEN GOTO 8000 

4090 LET N=N+1 

4100 PRINT AT 17,1; N 

4200 RETURN 

4510 LET TOT =TOT +1 

4520 IF TOT=40 THEN GOTO S50O 

4530 PRINT AT 17,5;TOT 

4540 RETURN 

5010 PRINT AT K , U; "J8©" , AT K+1,U; 
"»<";AT K+2,U;"B " 

5020 IF U=6 THEN GOSUB 550© 

5030 LET J=U + 1 

5040 RETURN _ 

5510 LET z * = "anPHPPPPPM“ 

5520 PRINT AT 6,10; "ROMEU,ROMEU' 

;AT 7.10;"ONDE";AT 8,10,"TU ESTA 
S";AT 9,10;"ROMEU 7 
5530 GOSUB 9990 

5540 PRINT AT S,10;ZÍ,AT 7,10;Z$ 
;AT 8,10;Z$;AT 9,10;Z$ 

5550 RETURN 
6010 LET R =R — 1 

6020 PRINT AT S,R, HB’;AT 5+l,R, 

‘‘■■";AT S+2,R,"*P" 

8030 RETURN 

6510 LET X=400*COS (PI/3) 

8520 LET Y =400*5IN (PI/2) 

6530 FOR Z=8 TO Y/1B 

6540 LET U=.01*<Y*Z-16*Z*Z> 

6550 UNPLOT .01*X*Z,U+10 
6570 PLOT ,01*X*Z,U+10 
6580 NEXT Z 
6590 RETURN 
7010 FOR D=9 TO 26 

7020 PRINT AT 6 , D ; "P^U»" ; AT 6,D; 


”;AT 5,29 


7030 NEXT D 
7040 PRINT AT 6,27; "| 

; "U" 

7050 RETURN 

7510 LET S =3-1 _ 

7520 PRINT AT S,R; S";AT S + 1,R;" 
,";rtT S +2,R; **■•*; AT S+3,R;"P" 

7530 RETURN 

8010 PRINT AT 13,8;AT 12,8;" 


% 


020 PRINT AT 11,8; 


" ; AT 10,9; 


8030 GOSUB 9900 

8040 PRINT AT 11,8; "PP" ; fl(T 8,9;" 
S";AT 9,9;". ";AT l©,9;" á " 

3050 GOSUB 9900 

8060 PRINT AT 10,9; "P"; AT 9,9;"* 
";RT 8,9;". ";AT 7,9; HB" 

8070 GOSUB 9900 


3080 PRINT AT 7,8; "M", AT 8,8;"* 
P" ; AT 9,8, 

8090 GOSUB 9900 

810C*PRINT AT 6,10; "BOA NOITE'*; A 
T 7,10. BOA NOITE";AT 8,10;"TENH 
O QUE";AT 9,10;"PARTIR AGORA",AT 
10,10;"NflO FIQUE MAGOADA" 

8110 GOSUB 9990_ 

8120 LET P 

3130 PRINT AT 6,10; P*; AT 7,10;P* 
, AT 8, 10, p$; AT 9,10; P$; AT 10,10, 

3150 LET U=U-1 

8 160 PRINT AT K,U;"0P";AT K + l # d; 
" >P"; AT K+2, u; " P" 

8170 IF U=0 THEN GOTO 8200 
3190 GOTO 8150 

S200 PRINT AT 7,6; AT 6,6;"fc* 

" ; AT 9,8, "I * " 

8210 GOSUB 9900 „ 

8220 PRINT AT 7,9;"P";AT 3,9; ® 

AT 9,9;". " ; AT 10,9;"*' 

3230 GOSUB 9900 

8240 PRINT AT 8,9;"P";AT 9,9 ; "P" 
8250 PRINT AT 11,8;"* ";AT 10,9, 

3260 GOSUB 9900 

8270 PRINT AT 10,9; "P" ,AT 11,3;" 
8260 FOR 5=11 TO 15 

8290 PRINT AT S,8,"P";AT S + 1,8;’ 
S" : AT s+2,8; "* " ; RT S + 3,3;"*" 

8300 NEXT S 

3310 FOR R=3 TO 29 

3320 PRINT AT 16 , R, JPS"AT 16 + 1, 
R; "P ; AT 16+2, R, 'p*^^ 

8330 NEXT R 
3340 LET G$ = " 

8350 FOR E=6 TG 12 
3360 PRINT AT E,10,Q* 

3370 NEXT E 

3380 PRINT AT 6,10," ROMANCE CON¬ 
CLUÍDO ";AT 8,10;"TECLE S PARA", 
AT 10,10;"RECOMECAR" 

8390 INPUT Z$ 

6400 IF Z$="Z" THEN GOTO 10O 
3410 GOTO 6390 
3510 LET D =26 

8520 PRINT AT S+l.D, P";AT S+1,D 

+ i; "P" 

8530 LET D = D-1 

3540 IF D=R THEN GOTO 3600 
S545 IF D<10 THEN GOTO 873© 

6550 GOTO 8520 
3600 GOSUB 9900 

8610 PRINT AT S -1, R, "■Pi" ; AT S,P 
^^pf^";AT S + 1,R; "P P ' . AT S+2 , R; * 

8620 IF 5=16 THEN GOTO 3700 
3630 LET S=S+1 
3640 GOTO 3610 

87 00 PRINT AT 16 ,R. ; AT 17, R 

. "WÊÊÊ" ^ P(T 18> A, 

8710 GOSUB 9900 _ _ 

3720 PRINT AT 7,7; P".AT 3,7; P 
;at 9,7;"P" 

8730 LET U=U-1 

8740 PRINT AT K,U;"0p";AT K+1,U, 
*• >P" , AT K+2,U,“ 

8750 IF J=0 THEN GOTO 8800 
3760 GOTO 8730 
3800 LET G$=" 

SS10 FOR E =6 TO 12 
3820 PRINT AT E,10;O* 

3830 NEXT E 

8840 PRINT AT 6,10,"QUE AZAR HE T 
N?";AT 8,10,"TECLE @ PARA",AT 10 
,10;"RECOMECAR" 

8850 INPUT Z$ 

3860 IF Z*="Z" THEN GOTO 10© 

9000 GOTO 8850 
9800 STOP 

9900 FOR T=1 TO 10 
9910 NEXT T 
9920 RETURN 

9990 FOR T = 1 TO 40 

9991 NEXT T 

9992 RETURN 

9998 SAUE "R/B" 

9999 RUN 























PROGRAMA DO MÉS , 


Memória ocupada — 1697 bytes 


MORLOCK 


Coloque na linha 1, após o REM, 66 
caracteres iguais (X, por exemplo). Digita¬ 
da esta rotina, tecle RUN e NEW UNE. 

Passe agora a colocar os códigos, em 
decimal, da figura 3. 


Texto: Álvaro A.L. Domingues 
Programa: Gustavo Egidio de Almeida 



Um dos pioneiros dos contos de ficção 
científica ao lado de Júlio Verne, foi H.G. 
Wells (1866-1946). Wells escreveu uma sé¬ 
rie de "romances científicos" que permi¬ 
tiram colocá-lo na galeria dos melhores es¬ 
critores de ficção científica. Entre estes 
romances figura A Máquina do Tempo , 
que serviu de inspiração para o nosso Pro¬ 
grama do mês desta edição. 

Neste romance, um viajante do tempo 
transporta-se ao futuro para uma época 
que julga ser a "Idade de Ouro da Huma¬ 
nidade". Entretanto, ao chegar lá, ele tem 
uma terrível decepção ao encontrar uma 
humanidade decadente, dividida ém 
raças: os Eloi e os Morlocks. 

Estas duas espécies foram utilizadas 
por Wells como uma lente de aumento pa¬ 
ra evidenciar o conflito de classes, da ma¬ 
neira como ele o vi venci ou em sua época. 

Os Eloi, belos e delicados, cóm tudo à 
sua disposição e aparentemente felizes, 
eram os descendentes da classe superior. 

Os Morlocks, grotescos e violentos, 
eram os descendentes da classe operária. 

Os Morlocks viviam nos subterrâneos, 
produzindo o alimento e as vestimentas 
dos Eloi, que viviam na superfície. 

A Máquina do Tempo 

Procuraremos não contar muito da his¬ 
tória (principalmente o final), deixando 
alguma coisa em aberto para que você 
mesmo leia (garanto que não será tempo 
perdido!) e tire suas próprias conclusões. 

Num determinado momento do livro, 
os Morlocks, atraídos pelo mecanismo 
desconhecido, roubam a máquina do tem¬ 
po. O viajante do tempo, para alcançá-la 
deve atravessar uma floresta. Durante o 
dia não há perigo, pois os Morlocks têm 
olhos adaptados à escuridão em que vi¬ 
vem, e são cegos à luz solar. À noite, en¬ 
tretanto, eles saem de suas cavernas e vêm 
à superfície. 

Em sua caminhada, o viajante do tem¬ 
po faz uma fogueira e provoca um incên¬ 
dio na floresta. 

A luz do fogo cega os Morlocks, dando 
alguma vantagem ao viajante. Entretanto, 
involuntariamente, ele colocou mais um 
perigo para si: o próprio incêndio. 





No 


tempo 


nosso jogo, você é o viajante do 
e está fugindo dos Morlocks 


* I) para alcarfcpar a máquina do tempo 


i ($; 

A floresta está incendiando, existem 
vários pontos de fogo (representados por 
qualquer caractere gráfico, escolhido alea¬ 
toriamente) e um Morlock sempre ao seu 
encalço. 

Entretanto, devido ao incêndio, ele 
está cego e vai direto ao ponto em cha¬ 
mas, morrendo em seguida. #orém, eles 
são muitos e logo surgirá outro na mesma 
coluna onde você está posicioriado, reco¬ 
meçando a perseguição. 

Embora cegos, ele? sabem onde você 
está (por estarem habituados a viverem na 
escuridão e têm um olfato apurado). Por¬ 
tanto, cuidado! 

Além disso, se você atingir um dos fo¬ 
cos do incêndio, morrerá. Você dispõe de 
três chances para realizar essa tarefa. Caso 
consiga, o computador lhe dará os para¬ 
béns (Figura 1). 

Para se mover ( \o\ ), use as teclas 5, 6, 
7 e 8. 

O Programa 

Este programa contém, na listagem, 
além de uma parte em Basic, uma outra 
em Linguagem de Máquina. 

Vamos inicialmente digitar uma rotina 
para a entrada dos códigos decimais na li¬ 
nha REM (Figura 2). 


ROTINh PRRfl ENTRHDR DOS C0DIG05 
DECIMRI3 NR LINHO REM 

1 REM XXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxx 

5 PRINT "16514" 

10 POR F«16514 TO 10370 
»0 XNPUr I 

22 ISSSV-xiF 

50 POKE F,I 0 

60 NEXT F r, 9- 2 



LISTOGEM DOS 

ENDEREÇOS E SEUS 


RESPCCTIUOS 

CODIGOS DCCIMOIS 

JÊ 

18514 - >4-4 

16515 — > 58 


16516->56 

18517->57 


16518— >30 

16519 — > 59 


16520->52 

16521— > O 


16522->42 

16523->44 

16S24->46 

16525— >41 

16526->46 

16527->52 


t 6 sae ->0 

16529 — > 41 


16530- >42 

16531 — > 0 


1E 532— >36 

1&533->49 


16534->50 

16535— > 42 


16536->46 

16537 — >41 


16538->36 

15539 — > O 


16540->23 

16541->0 


16542->29 

16543— > 37 


16544->36 

16545->31 


16546->0 

16547— > 23 


18548->0 

16649— > 96 


1655Ô ->197 

16551->24 


16552->7 

16553— >128 

16554 ->128 

16555->133 


16556->128 

16557->128 


16558->128 

16559->.128 


16560 — >197 

16561->229 


16562->213 

16563 — >17 


16564->169 

16565->64 


16566->1 

16567->7 


16566—>0 

16569 — >205 


16570->107 

16571->11 


16572->0 

16573-> 209 


16574-> 225 

16S75 — >193 


16576->193 

16577->16 


16578->227 

16579->201 „ 

fig. 3 


Exemplo: 

Dado o comando acima, surgirão no 
canto superior da tela, o número 16514 e 
no inferior, um cursor 0 , aguardando a 
entrada de dados. 

Digite 44 e NEW UNE, e assim por 
diante, para todos os códigos decimais, 
sempre teclando NEW UNE após a entra¬ 
da de cada código. Após ter dado entrada 
em todos os códigos., surgirá no canto in¬ 
ferior da tecla, o código 0/60. 

Agora de/ete todas as linhas do progra¬ 
ma, menos a de número 1, que é a linha 
que reserva todos os códigos em Lingua¬ 
gem de Máquina. 

Digite agora a listagem da Figura 4 a 
partir da linha 2. 

Terminadq de digitar a listagehn, digite 
RUN e NEWilNE. . . 

Boa Sorte! 


REM CUõTftUO EOIDIODE fiLMEI 
DR * 1983 * ">URL /fMhUMiVWL PR 
ST STR* > f* LN 7“ SGN LPRINT 

— — í Ttop TfT’ 


2 LET K=PI-PI 

3 L.ETT y=URL “3" 

* PRTNT PT URL "18“,URL “11" 


5 LET S = INT (RNDfrURL “13") 

6 LET C=PI/P1 

7 LET D -C 

© LET R=URL "5" 

9 LET B=C 

10 PRINT RT K,K; 

11 POKE URL "16E55“,INT (RHDtU 
RL “10")+URL "129“ 

12 LET L =USR URL "16548“ 

13 PRINT RT S,URL "31";“S" 

14. PRINT RT C,D, "B" 

15 PRINT RT R,B;"H" 

16 PRINT RT C,£>;"■" 

17 LET C=C+ <R>C) - (R.<C> 

18 LET D=D+<8>D)-<B<D> 

19 1F R=C RND B=D THEN GOTO UR 
L “33" 

20 PRINT RT C,D; 

21 IF PEEK (PEEK URL 16396“ -fU 
RL "256"*PEEK URL “16399")<>URL 
"128“ THEN LET C=K 

22 PRINT RT R,8;"B" ^ 

23 LET R=R+( INKET * = “©•' RND RcU 
RL "13“)-CINKEV$="7" RND R >K) 

II LET^Aí^CHR^PEEK CPEEK URL 
"16398“+URL "256“*PEEK URL "1639 
9" ) 

27 IF R$*"$" THEN GOTO URL "30 

28 IF RX>”B“ THEN GOTO URL “3 
3” 

29 GOTO URL "14“ 

30 PRINT RT URL "12“,K; PRRRBE 

ns, MissflO cumpridr;; 

31 PRUSE URL “300" 

32 RUN 

33 LET U*>U-PI/"PI 

34 PRINT RT URL "12“,K;"UXDR5 

* 35 IF U«K THEN GOTO URL "38" 

36 LET C*K 

37 GOTO URL “8“ „ 

38 PRINT RT URL “S“>URL “13“:“ 

FIM" fio A 

39 GOTO URL “31" "»* H 


82 MICROHOBBY 


















Um trabalho brilhante. 


A Omega Microcomputadores apresenta sua linha de computadores 

domésticos e profissionais. 

É o resultado de um longo período de pesquisa e desenvolvimento realizado pelo CPTESP, 
Centro de Pesquisa Tecnológica de São Paulo, órgão vinculado ao meio acadêmico. 
Isso quer dizer o seguinte: cada mãquina tem atrás de si um supor completo de serviços. 

Tal suporte cobre toda a manutenção (hardware) e também uma assessoria de 
treinamento e operação (os softwares) que explora todo o potencial existente no mercado. 
Agora, é só você entrar em contato e escolher a máquina mais adequada para seu 


MCMOO 


tipo de trabalho. 


Microcomputador totalmente 
compatível com o Apple 
Memória RAM 64 Kbytes expandível 
Placa OM 8088 (16 bits) 

Caracteres em português 
Letras maiúsculas e minúsculas 
8 slots de expansão 
Garantia de 6 meses 


MPC M000 


omega 

microcomputadores 


Memória 


OMEGA indústria e Comércio de Computadores Ltda 
Cx Postal 45 426 Sõo Paulo Fone (Oll) 275 5150 - 27ô 1276 
Telex (Oll) 23613 SOEP CGC 52959491/0001-04 


Microcomputador totalmente 
compatível em software e 
hardware com IBM PC xt 
RAM 256 Kbytes expandível até 1Mbyte 
Saída de RGB e vídeo composto 
Teclado inteligente com 83 teclas 
13 teclas programáveis até 26 funções 
Garantia de 6 meses 













































y*mCROCHGfML 




SHIFT 


Linguagens B 


escrever, 


memória 


iUàl 


OTK 


melhores 


Aceita diskette, 


OuP&B. T 


16kde mem 


software di 


Você 




MJQBQDiGITM 


TK2000s8Sí 


puter 


À venda nas boas casas do ramo. lojas especializadas de fotovideo-som e grandes magazines em: ALAGOAS - Maceió, Palmeira dos índios, AMAZONAS - Manaus, BAHIA - Salvador, CEARÁ - Forta 
leza, DISTRITO FEDERAL - Brasília, ESPÍRITO SANTO - Vitória, GOIÁS - Goiânia, MATO GROSSO - Cuiabá, MINAS GERAIS - Belo Horizonte, Divinópolis, Itajuba, Juiz de Fora, Poços de Caldas, São 
João Del Rei, Teófilo Otoni, Uberlândia, Uberaba, Viçosa, PARAÍBA - Campina Grande, PARÁ - Belém, PARANÁ - Curitiba, Londrina, Maringá, PERNAMBUCO - Recife, RIO DE JANEIRO - Campos, Ni¬ 
terói, Nova Friburgo, Petrópolis, Rezende, Rio de Janeiro, Volta Redonda, RIO GRANDE DO SUL - Bagé, Canoas, Caxias do Sul, Ijuí, Novo Hamburgo, Pelotas, Porto Alegre, Sant Anna do Livramen¬ 
to, Santiago, Santa Rosa, São Leopoldo, RIO GRANDE DO NORTE - Natal, RONDÔNIA - Porto Velho, SÃO PAULO - Araraquara, Assis, Avaré, Bauru, Birigui, Botucatu, Campinas, Catanduva, Franca, 
Guarulhos, Itu, Jacarei, Jaú, Limeira, Lins, Marilia, Mogi Guaçu, Mogi das Cruzes, Ourinhos, Piracicaba, Pirassununga, Promissão, Rio Claro, Ribeirão Preto, Santos, Santa Barb. d'Oeste, São Ber¬ 
nardo do Campo, São João da Boa Vista, São Sebs. da Grama, São Carlos, São José do Rio Preto, São José dos Campos, St? André, São Paulo, Sorocaba, Suzano, Taubaté, SANTA CATARINA - Blume¬ 
nau, Brusque, Florinópolis, Itajaí, Joinville, SERGIPE - Aracajú, Se você não encontrar este equipamento na sua cidade ligue para (011) 800 - 255.8583. 
















































